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"