more detail when it fails.
This commit is contained in:
@@ -391,7 +391,7 @@
|
|||||||
(let [unbalanced-ts (unbalanced-transactions)]
|
(let [unbalanced-ts (unbalanced-transactions)]
|
||||||
(if (seq unbalanced-ts)
|
(if (seq unbalanced-ts)
|
||||||
(do
|
(do
|
||||||
(log/warn (count unbalanced-ts) " transactions exist but don't have matching debits/credits ")
|
(log/warn (count unbalanced-ts) " transactions exist but don't have matching debits/credits (" (pr-str (take 3 unbalanced-ts) ")"))
|
||||||
(doseq [m unbalanced-ts]
|
(doseq [m unbalanced-ts]
|
||||||
(touch-transaction m))
|
(touch-transaction m))
|
||||||
(statsd/gauge "data.unbalanced_transactions" (count (unbalanced-transactions))))
|
(statsd/gauge "data.unbalanced_transactions" (count (unbalanced-transactions))))
|
||||||
|
|||||||
Reference in New Issue
Block a user