minor fixes.
This commit is contained in:
@@ -137,13 +137,13 @@
|
||||
(defn sum-outstanding [ids]
|
||||
|
||||
(->>
|
||||
(d/query {:query {:find ['?o]
|
||||
(d/query {:query {:find ['?id '?o]
|
||||
:in ['$ '[?id ...]]
|
||||
:where ['[?id :invoice/outstanding-balance ?o]]
|
||||
}
|
||||
:args [(d/db (d/connect uri))
|
||||
ids]})
|
||||
(map first)
|
||||
(map last)
|
||||
(reduce
|
||||
+
|
||||
0.0)))
|
||||
|
||||
@@ -282,6 +282,7 @@
|
||||
:body (json/write-str data)
|
||||
:as :json}))
|
||||
(refresh-provider-account pa)))
|
||||
|
||||
#_(defn get-users []
|
||||
(let [cob-session (login-cobrand)]
|
||||
(-> "https://developer.api.yodlee.com/ysl/user"
|
||||
|
||||
Reference in New Issue
Block a user