From 2f6dc325464c4fdb46630cf7a89e08ce1c0a868e Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Fri, 17 May 2019 08:30:26 -0700 Subject: [PATCH] more forgiving matching. --- src/clj/auto_ap/datomic/checks.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/clj/auto_ap/datomic/checks.clj b/src/clj/auto_ap/datomic/checks.clj index 2ff31a3a..f78f9a21 100644 --- a/src/clj/auto_ap/datomic/checks.clj +++ b/src/clj/auto_ap/datomic/checks.clj @@ -2,6 +2,7 @@ (:require [datomic.api :as d] [auto-ap.datomic :refer [uri merge-query apply-sort-2 apply-pagination add-sorter-field]] [auto-ap.graphql.utils :refer [limited-clients]] + [auto-ap.utils :refer [dollars=]] [clojure.set :refer [rename-keys]] [clj-time.coerce :as c])) @@ -78,7 +79,8 @@ (:amount args) (merge-query {:query {:in ['?amount] - :where ['[?e :payment/amount ?amount]]} + :where ['[?e :payment/amount ?transaction-amount] + '[(auto-ap.utils/dollars= ?transaction-amount ?amount)]]} :args [(:amount args)]})