Makes accounts not loaded.

src/clj/auto_ap/graphql/accounts.clj

@@ -1,16 +1,21 @@
 (ns auto-ap.graphql.accounts
   (:require
-   [auto-ap.datomic :refer [audit-transact remove-nils conn]]
+   [auto-ap.datomic :refer [audit-transact conn remove-nils]]
    [auto-ap.datomic.accounts :as d-accounts]
    [auto-ap.graphql.utils
-    :refer [->graphql <-graphql assert-can-see-client enum->keyword]]
-   [datomic.api :as d]
-   [clojure.tools.logging :as log]))
-
-(defn get-accounts [_ args _]
-  (->graphql (d-accounts/get-accounts (<-graphql args))))
-
+    :refer [->graphql
+            <-graphql
+            assert-admin
+            assert-can-see-client
+            enum->keyword
+            result->page]]
+   [datomic.api :as d]))
 
+(defn get-graphql [context args _]
+  (assert-admin (:id context))
+  (let [args                     (assoc args :id (:id context))
+        [accounts accounts-count ] (d-accounts/get-graphql (<-graphql args))]
+    (result->page accounts accounts-count :accounts args)))
 
 (defn default-for-vendor [context args _]
   (assert-can-see-client (:id context) (:client_id args))