notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Last staging changes before proceeding

Browse Source
This commit is contained in:
Bryce Covert
2020-12-27 09:00:35 -08:00
parent 544a69432c
commit 41660226cc
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/server.clj
View File

@@ -2,6 +2,7 @@
(:require [auto-ap.handler :refer [app]] (:require [auto-ap.handler :refer [app]]
[auto-ap.ledger :as ledger] [auto-ap.ledger :as ledger]
[auto-ap.yodlee.core] [auto-ap.yodlee.core]
[auto-ap.yodlee.core2 :as yodlee2]
[auto-ap.background.invoices] [auto-ap.background.invoices]
[auto-ap.square.core :as square] [auto-ap.square.core :as square]
[auto-ap.datomic.migrate :as migrate] [auto-ap.datomic.migrate :as migrate]
@@ -35,6 +36,7 @@
#'ledger/process-txes-worker #'ledger/process-txes-worker
#'ledger/ledger-reconciliation-worker #'ledger/ledger-reconciliation-worker
#'yodlee/import-transaction-worker #'yodlee/import-transaction-worker
#'yodlee2/yodlee-sync-worker
#'migrate/migrate-start]))] #'migrate/migrate-start]))]
(log/info "starting without " without) (log/info "starting without " without)

3
src/clj/auto_ap/yodlee/core2.clj
View File

@@ -90,6 +90,7 @@
[]))) [])))
(defn get-provider-accounts [client-code ] (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)]
(-> (str (:yodlee2-base-url env) "/providerAccounts") (-> (str (:yodlee2-base-url env) "/providerAccounts")
(-> (client/get (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session )}) (-> (client/get (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session )})
@@ -274,7 +275,7 @@
(defn upsert-accounts-tx (defn upsert-accounts-tx
([client-code] ([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] ([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->login client-code) (map :id provider-accounts))]
(map (fn [pa] (map (fn [pa]