made cloud tests work again.
This commit is contained in:
@@ -10,7 +10,7 @@
|
||||
(update-in [:query :where] conj where))]
|
||||
(reduce #(update-in %1 [:query :where] conj %2) query rest)))
|
||||
|
||||
(def default-read '(pull ?e [* {:client/_bank-accounts [:db/id]}]))
|
||||
(def default-read '[* {:client/_bank-accounts [:db/id]}])
|
||||
|
||||
(defn <-datomic [x]
|
||||
(->> x
|
||||
@@ -20,7 +20,7 @@
|
||||
|
||||
|
||||
(defn get-by-id [id]
|
||||
(->> [(dc/pull (dc/db conn default-read id))]
|
||||
(->> [(dc/pull (dc/db conn ) default-read id)]
|
||||
(<-datomic)
|
||||
(first)))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user