le boulanger, others.
This commit is contained in:
@@ -115,6 +115,11 @@
|
||||
|
||||
(defn do-import []
|
||||
(let [transactions (client/get-transactions)
|
||||
_ (println "Count of transactions" (->> transactions
|
||||
(group-by transactions :accountId)
|
||||
(reduce-kv (fn [acc k v]
|
||||
(assoc acc k (count v)))
|
||||
{})))
|
||||
#_#__ (println "All accounts:" (client/get-accounts))
|
||||
#_#__ (println "ALL Transactions:" transactions)
|
||||
all-bank-accounts (mapcat (fn [c] (map
|
||||
|
||||
Reference in New Issue
Block a user