From 634e4f48203f805ea568befd42914bdb9051c398 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Thu, 6 Jan 2022 17:00:11 -0800 Subject: [PATCH] Fixing findage of duplicates --- src/clj/auto_ap/datomic/transactions.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/clj/auto_ap/datomic/transactions.clj b/src/clj/auto_ap/datomic/transactions.clj index d180438c..9b13fcae 100644 --- a/src/clj/auto_ap/datomic/transactions.clj +++ b/src/clj/auto_ap/datomic/transactions.clj @@ -26,7 +26,8 @@ :where [?tx :transaction/bank-account ?ba] [?tx :transaction/amount ?amount] - [?tx :transaction/date ?date]] + [?tx :transaction/date ?date] + (not [?tx :transaction/approval-status :transaction-approval-status/suppressed])] db (:bank-account-id args)) (group-by (fn [[tx amount date]]