turning off usages.
This commit is contained in:
@@ -74,7 +74,6 @@
|
|||||||
))
|
))
|
||||||
|
|
||||||
(defn get-graphql [args]
|
(defn get-graphql [args]
|
||||||
(let [usages (time (get-usages args))]
|
|
||||||
(->> (cond-> {:query {:find [(list 'pull '?e default-read)]
|
(->> (cond-> {:query {:find [(list 'pull '?e default-read)]
|
||||||
:in ['$]
|
:in ['$]
|
||||||
:where ['[?e :vendor/name]]}
|
:where ['[?e :vendor/name]]}
|
||||||
@@ -84,7 +83,7 @@
|
|||||||
(map #(cleanse (:id args) %))
|
(map #(cleanse (:id args) %))
|
||||||
(map <-datomic)
|
(map <-datomic)
|
||||||
(map #(trim-usage % (limited-clients (:id args))))
|
(map #(trim-usage % (limited-clients (:id args))))
|
||||||
#_(map #(assoc % :usage (get usages (:db/id %)))))))
|
#_(map #(assoc % :usage (get usages (:db/id %))))))
|
||||||
|
|
||||||
(defn get-by-id [id]
|
(defn get-by-id [id]
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user