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

not so much logging

Browse Source
This commit is contained in:
Bryce Covert
2023-03-29 08:50:30 -07:00
parent 8912c31a20
commit 712b6fe477
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -407,7 +407,8 @@
(de/future-with request-pool (de/future-with request-pool
(mu/with-context {:entity entity} (mu/with-context {:entity entity}
(try (try
(mu/log ::pulling :count (count entities)) (when (= 0 (rand-int 100))
(mu/log ::pulling :count (count entities)))
(->> (d/pull-many remote-db (->> (d/pull-many remote-db
(->> schema (->> schema
(filter :db/valueType) (filter :db/valueType)
@@ -487,8 +488,9 @@
(throw e))) (throw e)))
) )
(swap! so-far #(+ % (count batch))) (swap! so-far #(+ % (count batch)))
(mu/log ::appended :count (count batch) (when (= 0 (rand-int 100))
:so-far @so-far))) (mu/log ::appended :count (count batch)
:so-far @so-far))))
(->> (partition-all 100 entities) (->> (partition-all 100 entities)
(into []) (into [])
(s/->source) (s/->source)