much better sorting.
This commit is contained in:
@@ -134,12 +134,10 @@
|
||||
retractions (map (fn [[_ e]] [:db/retractEntity [:journal-entry/original-entity e]]) affected-entities)]
|
||||
|
||||
(when (seq retractions)
|
||||
(println "Retracting " retractions)
|
||||
@(d/transact (d/connect uri) retractions))
|
||||
|
||||
|
||||
(doseq [d-tx d-txs]
|
||||
(clojure.pprint/pprint d-tx)
|
||||
#_(println "updating general-ledger " d-tx)
|
||||
@(d/transact (d/connect uri) [d-tx]))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user