Makes integreat run on datomic cloud

This commit is contained in:
2022-08-23 12:13:12 -07:00
parent 58b9dcf272
commit d02fba2b44
58 changed files with 2163 additions and 1257 deletions

View File

@@ -1,7 +1,7 @@
(ns auto-ap.datomic.bank-accounts
(:require
[auto-ap.datomic :refer [uri]]
[datomic.api :as d]))
[auto-ap.datomic :refer [conn]]
[datomic.client.api :as dc]))
(defn add-arg [query name value where & rest]
(let [query (-> query
@@ -21,10 +21,10 @@
(defn get-by-id [id]
(->>
(d/query (-> {:query {:find [default-read]
(dc/q (-> {:query {:find [default-read]
:in ['$]
:where []}
:args [(d/db (d/connect uri))]}
:args [(dc/db conn)]}
(add-arg '?e id ['?e])))
(map first)
(<-datomic)