notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

turning off usages.

Browse Source
This commit is contained in:
Bryce Covert
2021-05-28 13:53:08 -07:00
parent f4e5b4ebe0
commit 057e88de30
1 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/clj/auto_ap/datomic/vendors.clj
View File

@@ -74,17 +74,16 @@
)) ))
(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]]} :args [(d/db (d/connect uri))]})
:args [(d/db (d/connect uri))]}) (d/query)
(d/query) (map first)
(map first) (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]