From 06f0d9d9dd0dff5bba1044588773c826df52a8e7 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Tue, 5 Jul 2022 16:58:00 -0700 Subject: [PATCH] Fixes checks permissions --- src/clj/auto_ap/datomic/checks.clj | 1 + src/clj/auto_ap/graphql/checks.clj | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) 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")))]