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)