Add more debugging

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) $