Remove unused db-type being passed to start-conn

Also removed other unused db fns
This commit is contained in:
Gabriel Horner
2022-05-23 11:49:07 -04:00
parent 11d3d5b3cd
commit 5bce219ca4
6 changed files with 11 additions and 115 deletions

View File

@@ -137,21 +137,6 @@
;; Reactive query
(defn query-entity-in-component
([id-or-lookup-ref]
(db-utils/entity (state/get-current-repo) id-or-lookup-ref))
([repo id-or-lookup-ref]
(let [k [:entity id-or-lookup-ref]
result-atom (:result (get @query-state k))]
(when-let [component *query-component*]
(add-query-component! k component))
(when-let [db (conn/get-db repo)]
(let [result (d/entity db id-or-lookup-ref)
result-atom (or result-atom (atom nil))]
(set! (.-state result-atom) result)
(add-q! k nil nil result-atom identity identity identity))))))
(defn get-query-cached-result
[k]
(:result (get @query-state k)))