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)))