Unapproving a collection works

2020-03-30 08:18:28 -07:00
parent add1dc6fcb
commit 86ed52f44c
3 changed files with 28 additions and 16 deletions
--- a/src/clj/auto_ap/datomic/transactions.clj
+++ b/src/clj/auto_ap/datomic/transactions.clj
@@ -166,8 +166,7 @@
 (defn unapprove [ids]
  (doseq [x (partition-all 1000 ids)]
    @(d/transact (d/connect uri)
-                 (doto (mapv (fn [i]
-                               {:db/id i
-                                :transaction/approval-status :transaction-approval-status/unapproved})
-                             x)
-                   println))))
+                 (mapv (fn [i]
+                         {:db/id i
+                          :transaction/approval-status :transaction-approval-status/unapproved})
+                       x))))