From 057e88de304ffaa9e82455ad60a616e7b0faf1c0 Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@brycecovertoperations.com>
Date: Fri, 28 May 2021 13:53:08 -0700
Subject: [PATCH] turning off usages.

---
 src/clj/auto_ap/datomic/vendors.clj | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/src/clj/auto_ap/datomic/vendors.clj b/src/clj/auto_ap/datomic/vendors.clj
index 717bc584..7c094fba 100644
--- a/src/clj/auto_ap/datomic/vendors.clj
+++ b/src/clj/auto_ap/datomic/vendors.clj
@@ -74,17 +74,16 @@
        ))
 
 (defn get-graphql [args]
-  (let [usages (time (get-usages args))]
-    (->> (cond-> {:query {:find [(list 'pull '?e default-read)]
-                          :in ['$]
-                          :where ['[?e :vendor/name]]}
-                  :args [(d/db (d/connect uri))]})
-         (d/query)
-         (map first)
-         (map #(cleanse (:id args) %))
-         (map <-datomic)
-         (map #(trim-usage %  (limited-clients (:id args))))
-         #_(map #(assoc % :usage (get usages (:db/id %)))))))
+  (->> (cond-> {:query {:find [(list 'pull '?e default-read)]
+                        :in ['$]
+                        :where ['[?e :vendor/name]]}
+                :args [(d/db (d/connect uri))]})
+       (d/query)
+       (map first)
+       (map #(cleanse (:id args) %))
+       (map <-datomic)
+       (map #(trim-usage %  (limited-clients (:id args))))
+       #_(map #(assoc % :usage (get usages (:db/id %))))))
 
 (defn get-by-id [id]