made cloud tests work again.

This commit is contained in:
2023-05-01 20:21:58 -07:00
parent 721596d6f9
commit f2025c2e65
14 changed files with 62 additions and 47 deletions

View File

@@ -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)))