From 19b352c38154ebf6c8aa60dbe9f39cad147fc895 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Fri, 13 Oct 2023 14:59:14 -0500
Subject: [PATCH] Continue debugging

---
 src/ZGoBackend.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 448fff5..e590bbe 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -2023,7 +2023,11 @@ scanTxNative config pipe = do
               let xOrder = o >>= (cast' . Doc)
               case xOrder of
                 Nothing -> error "Failed to retrieve order from database"
-                Just xO ->
+                Just xO -> do
+                  print $ qtotalZec xO
+                  print $ zamount x
+                  print z
+                  print $ qaddress xO
                   when
                     (not (qpaid xO) &&
                      qtotalZec xO == zamount x && z == qaddress xO) $ do