16 lines
502 B
Clojure
16 lines
502 B
Clojure
(ns auto-ap.datomic.clients
|
|
(:require [datomic.api :as d]
|
|
[auto-ap.datomic :refer [uri]]))
|
|
|
|
(defn get-all []
|
|
(->> (d/q '[:find (pull ?e [*])
|
|
:where [?e :client/name]]
|
|
(d/db (d/connect uri)))
|
|
(map first)
|
|
(map (fn [c]
|
|
(update c :client/bank-accounts
|
|
(fn [bas]
|
|
(map (fn [ba]
|
|
(update ba :bank-account/type :db/ident ))
|
|
bas)))))))
|