should prevent bad error message from uploaded invoices.

2024-04-14 22:35:39 -07:00
parent 71b5b9864c
commit 38030637ba
5 changed files with 11 additions and 13 deletions
--- a/src/clj/auto_ap/jobs/ntg.clj
+++ b/src/clj/auto_ap/jobs/ntg.clj
@@ -273,7 +273,7 @@
                                                    (mapcat (fn [k]
                                                              (try 
                                                                (let [invoice-key (copy-readable-version k)
-                                                                      invoice-url (str "http://" bucket-name ".s3-website-us-east-1.amazonaws.com/" invoice-key)]
+                                                                      invoice-url (str "https://" bucket-name "/" invoice-key)]
                                                                  (with-open [is (-> (s3/get-object {:bucket-name bucket-name
                                                                                                     :key         k})
                                                                                     :input-stream)]