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

(cloud) Improvements in logging when restoring backup

Browse Source
This commit is contained in:
Bryce Covert
2023-03-30 11:14:08 -07:00
parent c8ada656c8
commit 02abe1dba9
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/clj/auto_ap/jobs/restore_from_backup.clj
View File

@@ -44,9 +44,10 @@
(def loaded (atom #{})) (def loaded (atom #{}))
(defn upsert-batch (defn upsert-batch
[batch] [batch context]
(de/future-with request-pool (de/future-with request-pool
(transact-with-backoff batch) (mu/with-context context
(transact-with-backoff batch))
batch)) batch))
(defn pull-file [backup which] (defn pull-file [backup which]
@@ -83,8 +84,10 @@
(when @die? (when @die?
(reset! die? false) (reset! die? false)
(throw (Exception. "dead"))) (throw (Exception. "dead")))
(upsert-batch entities))) (upsert-batch entities {:entity entity
(s/buffer 50) :service "restore-from-backup"
:background-job "restore-from-backup"})))
(s/buffer 20)
(s/realize-each))) (s/realize-each)))
(swap! loaded conj entity)))) (swap! loaded conj entity))))