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

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

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 2c7b787..112ce2a 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -2016,8 +2016,9 @@ scanTxNative config pipe = do
       case zM of
         Right m -> do
           case m_orderId m of
-            Nothing -> return ()
+            Nothing -> print "Not an order Tx"
             Just orderId -> do
+              print orderId
               o <- access p master dbName $ findOrderById (T.unpack orderId)
               let xOrder = o >>= (cast' . Doc)
               case xOrder of