notid/integreat
1
0
Fork 0
Code Issues Pull Requests 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
(mu/with-context {:entity entity}
(try
(mu/log ::pulling :count (count entities))
(when (= 0 (rand-int 100))
(mu/log ::pulling :count (count entities)))
(->> (d/pull-many remote-db
(->> schema
(filter :db/valueType)
@@ -487,8 +488,9 @@
(throw e)))
)
(swap! so-far #(+ % (count batch)))
(mu/log ::appended :count (count batch)
:so-far @so-far)))
(when (= 0 (rand-int 100))
(mu/log ::appended :count (count batch)
:so-far @so-far))))
(->> (partition-all 100 entities)
(into [])
(s/->source)