Supports vendors not loading

src/clj/auto_ap/graphql/vendors.clj

@@ -1,13 +1,11 @@
 (ns auto-ap.graphql.vendors
-  (:require [auto-ap.graphql.utils :refer [->graphql assert-can-see-client assert-admin is-admin? enum->keyword]]
-            [auto-ap.datomic.vendors :as d-vendors]
-            [auto-ap.time :refer [parse iso-date]]
-            [datomic.api :as d]
-            [auto-ap.datomic :refer [uri remove-nils audit-transact conn]]
-            [clj-time.coerce :as coerce]
-            [clojure.set :as set]
-            [clojure.tools.logging :as log]))
-
+  (:require
+   [auto-ap.datomic :refer [audit-transact conn remove-nils]]
+   [auto-ap.datomic.vendors :as d-vendors]
+   [auto-ap.graphql.utils
+    :refer [->graphql <-graphql assert-admin enum->keyword is-admin? result->page]]
+   [clojure.tools.logging :as log]
+   [datomic.api :as d]))
 
 (defn upsert-vendor [context {{:keys [id name hidden terms code print_as primary_contact secondary_contact address default_account_id invoice_reminder_schedule schedule_payment_dom terms_overrides account_overrides] :as in} :vendor} value]
   (when id
@@ -114,10 +112,16 @@
     (audit-transact transaction (:id context))
     to))
 
-(defn get-graphql [context args value]
+#_(defn get-graphql [context args value]
   (->graphql
    (d-vendors/get-graphql (assoc args :id (:id context)))))
 
+(defn get-graphql [context args _]
+  (assert-admin (:id context))
+  (let [args                     (assoc args :id (:id context))
+        [vendors vendors-count ] (d-vendors/get-graphql  (<-graphql args))]
+    (result->page vendors vendors-count :vendors args)))
+
 (defn get-by-id [context args value]
   (->graphql
     (d-vendors/get-graphql-by-id (assoc args :id (:id context))