diff --git a/src/clj/auto_ap/server.clj b/src/clj/auto_ap/server.clj index d5cdde7c..dd968f3f 100644 --- a/src/clj/auto_ap/server.clj +++ b/src/clj/auto_ap/server.clj @@ -2,6 +2,7 @@ (:require [auto-ap.handler :refer [app]] [auto-ap.ledger :as ledger] [auto-ap.yodlee.core] + [auto-ap.yodlee.core2 :as yodlee2] [auto-ap.background.invoices] [auto-ap.square.core :as square] [auto-ap.datomic.migrate :as migrate] @@ -35,6 +36,7 @@ #'ledger/process-txes-worker #'ledger/ledger-reconciliation-worker #'yodlee/import-transaction-worker + #'yodlee2/yodlee-sync-worker #'migrate/migrate-start]))] (log/info "starting without " without) diff --git a/src/clj/auto_ap/yodlee/core2.clj b/src/clj/auto_ap/yodlee/core2.clj index 1f51713e..836e7f0f 100644 --- a/src/clj/auto_ap/yodlee/core2.clj +++ b/src/clj/auto_ap/yodlee/core2.clj @@ -90,6 +90,7 @@ []))) (defn get-provider-accounts [client-code ] + (log/info "logging in user " client-code) (let [cob-session (login-user client-code)] (-> (str (:yodlee2-base-url env) "/providerAccounts") (-> (client/get (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session )}) @@ -274,7 +275,7 @@ (defn upsert-accounts-tx ([client-code] - (upsert-accounts-tx (get-provider-accounts (client-code->login client-code)))) + (upsert-accounts-tx client-code (get-provider-accounts (client-code->login client-code)))) ([client-code provider-accounts] (let [accounts (get-accounts-for-providers (client-code->login client-code) (map :id provider-accounts))] (map (fn [pa]