From 303068f1fc9641fec6c21ee9dc27afd13136be9c Mon Sep 17 00:00:00 2001
From: Bryce Covert <contact.bryce@brycecovertoperations.com>
Date: Wed, 5 Jun 2019 21:04:18 -0700
Subject: [PATCH] one big transaction.

---
 src/clj/auto_ap/graphql/transactions.clj | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/src/clj/auto_ap/graphql/transactions.clj b/src/clj/auto_ap/graphql/transactions.clj
index 55768909..4b603c7f 100644
--- a/src/clj/auto_ap/graphql/transactions.clj
+++ b/src/clj/auto_ap/graphql/transactions.clj
@@ -142,15 +142,19 @@
       
 
       @(d/transact (d/connect uri)
-                   (into 
-                    [(remove-nils (rm/apply-rule {:db/id (:db/id transaction)
-                                                  :transaction/amount (:transaction/amount transaction)}
-                                                 transaction-rule
+                   (transduce
+                    (map #(into 
+                           [(remove-nils (rm/apply-rule {:db/id (:db/id %)
+                                                         :transaction/amount (:transaction/amount %)}
+                                                        transaction-rule
 
-                                                 (or (-> transaction :transaction/bank-account :bank-account/locations)
-                                                     (-> transaction :transaction/client :client/locations))))]
-                    (map (fn [x] [:db/retractEntity (:db/id x)] )
-                         (:transaction/accounts transaction))))))
+                                                        (or (-> % :transaction/bank-account :bank-account/locations)
+                                                            (-> % :transaction/client :client/locations))))]
+                           (map (fn [x] [:db/retractEntity (:db/id x)] )
+                                (:transaction/accounts %))))
+                    into
+                    []
+                    transactions))))
   (transduce
    (comp
     (map d-transactions/get-by-id)