From f7b7dc6a3fe0d453d6f4bbc3071bae29d0ba1b1e Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Mon, 1 Jul 2024 14:50:07 -0500
Subject: [PATCH] Add more debugging

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

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index d1555a3..726ef72 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1994,6 +1994,7 @@ scanTxNative config pipe = do
             txList <- mapM (getTxData nodeUser nodePwd) txIdList
             print "filtering txs..."
             let filteredTxList = map fromJust $ filter filterTx txList
+            print $ show filteredTxList
             print "checking txs against keys..."
             mapM_ (checkTx filteredTxList) ownerList
             access pipe master (c_dbName config) $