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]