checks are actually matched
This commit is contained in:
@@ -55,7 +55,7 @@
|
||||
(defn get-transactions []
|
||||
(let [cob-session (login-cobrand)
|
||||
user-session (login-user cob-session)
|
||||
batch-size 500
|
||||
batch-size 100
|
||||
get-transaction-batch (fn [skip]
|
||||
(-> (str "https://developer.api.yodlee.com/ysl/transactions?top=" batch-size "&skip=" skip)
|
||||
(client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
|
||||
@@ -71,7 +71,7 @@
|
||||
(recur (concat transactions transaction-batch) (+ batch-size skip))
|
||||
transactions)))))
|
||||
|
||||
#_(defn create-user []
|
||||
(defn create-user []
|
||||
(let [cob-session (login-cobrand)]
|
||||
(-> "https://developer.api.yodlee.com/ysl/user/register"
|
||||
(client/post {:headers (merge base-headers {"Authorization" (auth-header cob-session)})
|
||||
|
||||
Reference in New Issue
Block a user