Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Add more debugging

Browse source
This commit is contained in:
Rene Vergara 2024-07-01 14:50:07 -05:00
parent 14540ffb07
commit f7b7dc6a3f
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/ZGoBackend.hs
View file

@ -1994,6 +1994,7 @@ scanTxNative config pipe = do
txList <- mapM (getTxData nodeUser nodePwd) txIdList txList <- mapM (getTxData nodeUser nodePwd) txIdList
print "filtering txs..." print "filtering txs..."
let filteredTxList = map fromJust $ filter filterTx txList let filteredTxList = map fromJust $ filter filterTx txList
print $ show filteredTxList
print "checking txs against keys..." print "checking txs against keys..."
mapM_ (checkTx filteredTxList) ownerList mapM_ (checkTx filteredTxList) ownerList
access pipe master (c_dbName config) $ access pipe master (c_dbName config) $