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

Correct block recording

Browse source
This commit is contained in:
Rene Vergara 2023-10-13 15:35:48 -05:00
parent 5788a26880
commit ac86d1ee59
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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