notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

trying to build in a little buffer.

Browse Source
This commit is contained in:
Bryce Covert
2022-09-26 09:12:26 -07:00
parent 7d9dfcfeb1
commit 63c6859d64
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/datomic.clj
View File

@@ -625,7 +625,8 @@
:audit/user (str (:user/role id) "-" (:user/name id)) :audit/user (str (:user/role id) "-" (:user/name id))
:audit/batch batch-id}) :audit/batch batch-id})
_ (log/info "transacting batch " batch-id " " (count batch)) _ (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 (cond-> full-tx
(:tx-data full-tx) (update :tx-data #(into % (:tx-data tx-result))) (:tx-data full-tx) (update :tx-data #(into % (:tx-data tx-result)))
@@ -635,7 +636,7 @@
true (update :tempids merge (:tempids tx-result))))) true (update :tempids merge (:tempids tx-result)))))
{} {}
(partition-all 200 txes)))) (partition-all 50 txes))))
(defn audit-transact [txes id] (defn audit-transact [txes id]
@(d/transact conn (conj txes {:db/id "datomic.tx" @(d/transact conn (conj txes {:db/id "datomic.tx"