diff --git a/src/clj/auto_ap/datomic/checks.clj b/src/clj/auto_ap/datomic/checks.clj index d7792a5e..ac86fcba 100644 --- a/src/clj/auto_ap/datomic/checks.clj +++ b/src/clj/auto_ap/datomic/checks.clj @@ -162,6 +162,7 @@ payments)) (defn get-graphql [args] + (log/info (:id args)) (let [db (d/db conn) {ids-to-retrieve :ids matching-count :count} (raw-graphql-ids db args)] diff --git a/src/clj/auto_ap/graphql/checks.clj b/src/clj/auto_ap/graphql/checks.clj index 426c5c1e..4e9c3551 100644 --- a/src/clj/auto_ap/graphql/checks.clj +++ b/src/clj/auto_ap/graphql/checks.clj @@ -412,10 +412,10 @@ nil)})) (defn get-payment-page [context args _] - (let [args (assoc args :id (:id context)) - [payments checks-count] (d-checks/get-graphql (-> args + (let [[payments checks-count] (d-checks/get-graphql (-> args :filters (<-graphql) + (assoc :id (:id context)) (update :payment-type enum->keyword "payment-type") (update :status enum->keyword "payment-status")))]