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

captures last integration for each bank account as well.

Browse Source
This commit is contained in:
Bryce Covert
2022-07-08 13:24:47 -07:00
parent 789914b3f7
commit 6c961e17ba
5 changed files with 45 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
src/clj/auto_ap/import/common.clj Normal file
View File

@@ -0,0 +1,28 @@
(ns auto-ap.import.common
(:require
[auto-ap.datomic :refer [conn]]
[clojure.tools.logging :as log]
[datomic.api :as d]))
(defn bank-account->integration-id [bank-account]
(or (->> bank-account
(d/pull (d/db conn) [:bank-account/integration-status])
:bank-account/integration-status
:db/id)
#db/id[:db.part/user]))
(defn wrap-integration [f bank-account]
(try
(let [result (f)]
@(d/transact conn [{:db/id bank-account :bank-account/integration-status {:db/id (bank-account->integration-id bank-account)
:integration-status/state :integration-state/success
:integration-status/last-attempt (java.util.Date.)
:integration-status/last-updated (java.util.Date.)}}])
result)
(catch Exception e
@(d/transact conn [{:db/id bank-account :bank-account/integration-status {:db/id (bank-account->integration-id bank-account)
:integration-status/state :integration-state/failed
:integration-status/last-attempt (java.util.Date.)
:integration-status/message (.getMessage e)}}])
(log/warn e)
nil)))