Makes integreat run on datomic cloud
This commit is contained in:
@@ -1,14 +1,14 @@
|
||||
(ns auto-ap.datomic.yodlee-merchants
|
||||
(:require
|
||||
[auto-ap.datomic :refer [uri]]
|
||||
[datomic.api :as d]))
|
||||
[auto-ap.datomic :refer [conn]]
|
||||
[datomic.client.api :as dc]))
|
||||
|
||||
(defn get-merchants [_]
|
||||
;; TODO admin?
|
||||
(let [query {:query {:find ['(pull ?e [:yodlee-merchant/name :yodlee-merchant/yodlee-id :db/id])]
|
||||
:in ['$]
|
||||
:where [['?e :yodlee-merchant/name]]}
|
||||
:args [(d/db (d/connect uri))]}]
|
||||
:args [(dc/db conn)]}]
|
||||
(->>
|
||||
(d/query query)
|
||||
(dc/q query)
|
||||
(mapv first))))
|
||||
|
||||
Reference in New Issue
Block a user