From be6be38c344514400841e1ce229a38891e1e7341 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Mon, 21 Mar 2022 11:18:26 -0700 Subject: [PATCH] trying to fix logging in on yodlee 2. --- src/clj/auto_ap/yodlee/core2.clj | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/src/clj/auto_ap/yodlee/core2.clj b/src/clj/auto_ap/yodlee/core2.clj index a40416f0..fecd3a3a 100644 --- a/src/clj/auto_ap/yodlee/core2.clj +++ b/src/clj/auto_ap/yodlee/core2.clj @@ -70,7 +70,7 @@ :accessToken)) (defn get-accounts [client-code ] - (let [cob-session (login-user client-code)] + (let [cob-session (login-user (client-code->login client-code))] (-> (str (:yodlee2-base-url env) "/accounts") (client/get (merge {:headers (merge base-headers {"Authorization" (str "Bearer " cob-session)}) :as :json} @@ -80,7 +80,7 @@ (defn get-accounts-for-provider-account [client-code provider-account-id] (try - (let [cob-session (login-user client-code)] + (let [cob-session (login-user (client-code->login client-code))] (-> (str (:yodlee2-base-url env) "/accounts?providerAccountId=" provider-account-id) (client/get (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session)}) :as :json} @@ -94,7 +94,7 @@ (defn get-provider-accounts [client-code ] (log/info "logging in user " client-code) - (let [cob-session (login-user client-code)] + (let [cob-session (login-user (client-code->login client-code))] (-> (str (:yodlee2-base-url env) "/providerAccounts") (-> (client/get (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session )}) :as :json} @@ -105,7 +105,7 @@ (defn get-transactions [client-code] - (let [cob-session (login-user client-code) + (let [cob-session (login-user (client-code->login client-code)) batch-size 100 get-transaction-batch (fn [skip] (-> (str (:yodlee2-base-url env) "/transactions?top=" batch-size "&skip=" skip) @@ -128,7 +128,7 @@ (defn get-provider-account [client-code id] - (let [cob-session (login-user client-code) + (let [cob-session (login-user (client-code->login client-code)) batch-size 100] (-> (str (:yodlee2-base-url env) "/providerAccounts/" id) @@ -141,7 +141,7 @@ first))) (defn get-provider-account-detail [client-code id] - (let [cob-session (login-user client-code)] + (let [cob-session (login-user (client-code->login client-code))] (-> (str (:yodlee2-base-url env) "/providerAccounts/" id ) @@ -154,7 +154,7 @@ first))) (defn update-provider-account [client-code pa] - (let [cob-session (login-user client-code)] + (let [cob-session (login-user (client-code->login client-code))] (-> (str (:yodlee2-base-url env) "/providerAccounts?providerAccountIds=" pa) @@ -169,7 +169,7 @@ (defn get-specific-transactions [client-code account] - (let [cob-session (login-user client-code) + (let [cob-session (login-user (client-code->login client-code)) batch-size 100 get-transaction-batch (fn [skip] (-> (str (:yodlee2-base-url env) "/transactions?top=" batch-size "&skip=" skip "&accountId=" account) @@ -191,7 +191,7 @@ (defn get-access-token [client-code] (try - (let [cob-session (login-user client-code)] + (let [cob-session (login-user (client-code->login client-code))] cob-session) (catch Exception e (log/error e) @@ -278,9 +278,9 @@ (defn upsert-accounts-tx ([client-code] - (upsert-accounts-tx client-code (get-provider-accounts (client-code->login client-code)))) + (upsert-accounts-tx client-code (get-provider-accounts client-code))) ([client-code provider-accounts] - (let [accounts (get-accounts-for-providers (client-code->login client-code) (map :id provider-accounts))] + (let [accounts (get-accounts-for-providers client-code (map :id provider-accounts))] (map (fn [pa] (cond-> {:yodlee-provider-account/id (:id pa) @@ -304,7 +304,7 @@ (defn refresh-provider-account [client-code id] (log/info "refreshing yodlee provider account id" id) @(d/transact conn (upsert-accounts-tx client-code - [(get-provider-account (client-code->login client-code) id)]))) + [(get-provider-account client-code id)]))) (defn upsert-accounts [] (let [concurrent 20