fixes issues with a neverending search. Also fixes client saving to match normal test.
This commit is contained in:
@@ -617,6 +617,7 @@
|
||||
:count (count results)})
|
||||
|
||||
(defn audit-transact-batch [txes id]
|
||||
(println "transacting batch")
|
||||
(let [batch-id (.toString (java.util.UUID/randomUUID))]
|
||||
(reduce
|
||||
(fn [full-tx batch]
|
||||
@@ -636,7 +637,8 @@
|
||||
true (update :tempids merge (:tempids tx-result)))))
|
||||
|
||||
{}
|
||||
(partition-all 200 txes))))
|
||||
(partition-all 200 txes)))
|
||||
(println "done"))
|
||||
|
||||
(defn audit-transact [txes id]
|
||||
(dc/transact conn {:tx-data (conj txes {:db/id "datomic.tx"
|
||||
|
||||
Reference in New Issue
Block a user