From aff5e4f03df36c29ab7297c504933cab3a121817 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Mon, 19 Jun 2023 18:54:18 -0500
Subject: [PATCH] Add more debugging to payment confirmation

---
 src/ZGoBackend.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index c9b9a21..603eea8 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1448,6 +1448,7 @@ scanPayments config pipe = do
                 Right txs -> do
                   let r = mkRegex ".*ZGo Order::([0-9a-fA-F]{24}).*"
                   let k = filter (isRelevant r) txs
+                  print k
                   let j = map (getOrderId r) k
                   mapM_ (recordPayment p (c_dbName config) z) j
                 Left e -> print e