From 8a078e008667f94cf06b0961bce08e075b3d653d Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Thu, 21 Jul 2022 16:44:50 -0700 Subject: [PATCH] fix broken ledger issue --- src/clj/auto_ap/ledger.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/clj/auto_ap/ledger.clj b/src/clj/auto_ap/ledger.clj index 2f859465..9625e61c 100644 --- a/src/clj/auto_ap/ledger.clj +++ b/src/clj/auto_ap/ledger.clj @@ -464,11 +464,11 @@ (statsd/gauge "data.mismatched_invoices" (count (mismatched-invoices)))) (statsd/gauge "data.mismatched_invoices" 0.0))) (log/info "Attempting to fix transactions that are in the ledger but debits/credits don't add up") - (let [unbalanced-invoices (unbalanced-invoices)] - (if (seq unbalanced-invoices) + (let [unbalanced-is (unbalanced-invoices)] + (if (seq unbalanced-is) (do - (log/warn (count unbalanced-invoices) " invoices exist but don't have matching debits/credits ") - (doseq [m unbalanced-invoices] + (log/warn (count unbalanced-is) " invoices exist but don't have matching debits/credits ") + (doseq [m unbalanced-is] (touch-invoice m)) (statsd/gauge "data.unbalanced_invoices" (count (unbalanced-invoices)))) (statsd/gauge "data.unbalanced_invoices" 0.0)))