checks are actually matched

This commit is contained in:
BC
2018-06-28 21:20:51 -07:00
parent e738349cec
commit 216429bfdb
6 changed files with 79 additions and 50 deletions

View File

@@ -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)})