diff --git a/src/clj/auto_ap/backup.clj b/src/clj/auto_ap/backup.clj index e10e8abe..59a032ff 100644 --- a/src/clj/auto_ap/backup.clj +++ b/src/clj/auto_ap/backup.clj @@ -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)