performance optimization, much faster when only looking up check if transaction not found.
This commit is contained in:
@@ -92,7 +92,7 @@
|
|||||||
client (:client/_bank-accounts bank-account)
|
client (:client/_bank-accounts bank-account)
|
||||||
client-id (:db/id client)
|
client-id (:db/id client)
|
||||||
valid-locations (or (:bank-account/locations bank-account) (:client/locations client))
|
valid-locations (or (:bank-account/locations bank-account) (:client/locations client))
|
||||||
check (transaction->payment transaction check-number client-id bank-account-id amount id)
|
|
||||||
date (time/parse date "YYYY-MM-dd")]
|
date (time/parse date "YYYY-MM-dd")]
|
||||||
:when (and client-id
|
:when (and client-id
|
||||||
(not (existing (sha-256 (str id))))
|
(not (existing (sha-256 (str id))))
|
||||||
@@ -101,6 +101,7 @@
|
|||||||
(or (not (:start-date bank-account))
|
(or (not (:start-date bank-account))
|
||||||
(t/after? date (:start-date bank-account)))
|
(t/after? date (:start-date bank-account)))
|
||||||
)]
|
)]
|
||||||
|
(let [check (transaction->payment transaction check-number client-id bank-account-id amount id)]
|
||||||
(->
|
(->
|
||||||
#:transaction
|
#:transaction
|
||||||
{:post-date (coerce/to-date (time/parse post-date "YYYY-MM-dd"))
|
{:post-date (coerce/to-date (time/parse post-date "YYYY-MM-dd"))
|
||||||
@@ -132,7 +133,7 @@
|
|||||||
:amount (Math/abs (double amount))}])}
|
:amount (Math/abs (double amount))}])}
|
||||||
|
|
||||||
(apply-rules valid-locations)
|
(apply-rules valid-locations)
|
||||||
remove-nils))))
|
remove-nils)))))
|
||||||
|
|
||||||
|
|
||||||
(defn batch-transact [transactions]
|
(defn batch-transact [transactions]
|
||||||
|
|||||||
@@ -83,8 +83,8 @@ resource "aws_lb_target_group" "integreat_app" {
|
|||||||
path = "/api/health-check"
|
path = "/api/health-check"
|
||||||
port = "traffic-port"
|
port = "traffic-port"
|
||||||
protocol = "HTTP"
|
protocol = "HTTP"
|
||||||
timeout = 5
|
timeout = 14
|
||||||
unhealthy_threshold = 2
|
unhealthy_threshold = 5
|
||||||
}
|
}
|
||||||
|
|
||||||
stickiness {
|
stickiness {
|
||||||
|
|||||||
Reference in New Issue
Block a user