From 63c6859d640e1a2427b5ed7dd03a1eafc96e7cf4 Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@brycecovertoperations.com>
Date: Mon, 26 Sep 2022 09:12:26 -0700
Subject: [PATCH] trying to build in a little buffer.

---
 src/clj/auto_ap/datomic.clj | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/clj/auto_ap/datomic.clj b/src/clj/auto_ap/datomic.clj
index 8f957c7a..998b5f5c 100644
--- a/src/clj/auto_ap/datomic.clj
+++ b/src/clj/auto_ap/datomic.clj
@@ -625,7 +625,8 @@
                                 :audit/user (str (:user/role id) "-" (:user/name id))
                                 :audit/batch batch-id})
              _ (log/info "transacting batch " batch-id " " (count batch))
-             tx-result @(d/transact conn batch)]
+             tx-result @(d/transact conn batch)
+             _ (Thread/sleep 1000)]
 
          (cond-> full-tx
            (:tx-data full-tx) (update :tx-data #(into % (:tx-data tx-result)))
@@ -635,7 +636,7 @@
            true (update :tempids merge (:tempids tx-result)))))
 
      {}
-     (partition-all 200 txes))))
+     (partition-all 50 txes))))
 
 (defn audit-transact [txes id]
   @(d/transact conn (conj txes {:db/id "datomic.tx"