Minor tweaks for performance
This commit is contained in:
@@ -18,11 +18,16 @@
|
||||
(def bucket (:data-bucket env))
|
||||
|
||||
(defn s3->csv [url]
|
||||
(->> (-> (s3/get-object {:bucket-name bucket
|
||||
:key (str "bulk-import/" url)})
|
||||
:input-stream
|
||||
io/reader
|
||||
csv/read-csv)))
|
||||
(try
|
||||
(->> (-> (s3/get-object {:bucket-name bucket
|
||||
:key (str "bulk-import/" url)})
|
||||
:input-stream
|
||||
io/reader
|
||||
csv/read-csv))
|
||||
(catch Exception e
|
||||
(log/error (str "Could not read the file " url ". Are you sure you uploaded it?"))
|
||||
(log/error e)
|
||||
(throw e))))
|
||||
|
||||
(defn register-invoice-import* [data]
|
||||
(let [db (d/db conn)
|
||||
|
||||
Reference in New Issue
Block a user