Migrates back to datomic on-prem

src/clj/auto_ap/datomic/bank_accounts.clj

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