Replacing when matching.

src/clj/auto_ap/graphql/transactions.clj

@@ -130,12 +130,15 @@
       (throw (ex-info "Transaction already associated with a payment" {:validation-error "Transaction already associated with a payment"})))
 
     @(d/transact (d/connect uri)
-                 [(rm/apply-rule {:db/id (:db/id transaction)
-                                  :transaction/amount (:transaction/amount transaction)}
-                                 transaction-rule
+                 (into 
+                  [(remove-nils (rm/apply-rule {:db/id (:db/id transaction)
+                                                :transaction/amount (:transaction/amount transaction)}
+                                               transaction-rule
 
-                                 ;; TODO use bank account locations as well
-                                 (-> transaction :transaction/client :client/locations))]))
+                                               ;; TODO use bank account locations as well
+                                               (-> transaction :transaction/client :client/locations)))]
+                  (map (fn [x] [:db/retractEntity (:db/id x)] )
+                       (:transaction/accounts transaction)))))
   (-> (d-transactions/get-by-id transaction_id)
       approval-status->graphql
       ->graphql))