notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Tries to not put everything into memory first

Browse Source
This commit is contained in:
Bryce Covert
2023-03-28 14:05:14 -07:00
parent 9e96ce4944
commit d6f0468725
1 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/clj/auto_ap/backup.clj
View File

@@ -498,11 +498,18 @@
(s/buffer 20) (s/buffer 20)
(s/realize-each))) (s/realize-each)))
) )
(mu/log ::copying) (try
(s3/put-object :bucket-name (:data-bucket env) (mu/log ::copying)
:key (str backup-id "/" entity ".ednl") (let [f (io/file "/tmp/tmp-ednl")]
:input-stream (io/make-input-stream (io/file "/tmp/tmp-ednl") {})) (s3/put-object :bucket-name (:data-bucket env)
(mu/log ::copied))))))) :key (str backup-id "/" entity ".ednl")
:input-stream (io/make-input-stream f {})
:metadata {:content-length (.length f)}))
(mu/log ::copied)
(catch Exception e
(mu/log ::upload-error
:exception e)
(throw e)))))))))
(defn -main [& _] (defn -main [& _]
(try (try