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

Unified Address support #8

Merged
pitmutt merged 61 commits from dev18 into master 2023-10-28 12:24:28 +00:00
Conversation 0 Commits 61 Files changed 11 +4 -2
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit ac86d1ee59 - Show all commits

6
src/ZGoBackend.hs
View file

@ -1920,7 +1920,8 @@ scanTxNative config pipe = do
let filteredTxList = map fromJust $ filter filterTx txList let filteredTxList = map fromJust $ filter filterTx txList
print "checking txs against keys..." print "checking txs against keys..."
mapM_ (checkTx filteredTxList) ownerList mapM_ (checkTx filteredTxList) ownerList
access pipe master (c_dbName config) $ upsertBlock lB access pipe master (c_dbName config) $
upsertBlock (last $ catMaybes filteredBlockList)
Just lastBlock -> do Just lastBlock -> do
blockList' <- blockList' <-
mapM mapM
@ -1936,7 +1937,8 @@ scanTxNative config pipe = do
let filteredTxList = map fromJust $ filter filterTx txList let filteredTxList = map fromJust $ filter filterTx txList
print "checking txs against keys..." print "checking txs against keys..."
mapM_ (checkTx filteredTxList) ownerList mapM_ (checkTx filteredTxList) ownerList
access pipe master (c_dbName config) $ upsertBlock lB access pipe master (c_dbName config) $
upsertBlock (last $ catMaybes filteredBlockList)
where where
filterBlock :: Maybe BlockResponse -> Bool filterBlock :: Maybe BlockResponse -> Bool
filterBlock b = maybe 0 bl_confirmations b >= 5 filterBlock b = maybe 0 bl_confirmations b >= 5