From 712b6fe477c65ac88660dd40d9e46981782c52d5 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Wed, 29 Mar 2023 08:50:30 -0700 Subject: [PATCH] not so much logging --- src/clj/auto_ap/backup.clj | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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)