Makes integreat run on datomic cloud
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user