Fixes checks permissions

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)]
 

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))
+  (let [[payments checks-count] (d-checks/get-graphql  (-> args
-        [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")))]