Update base block for first run

This commit is contained in:
Rene Vergara 2023-09-28 13:29:16 -05:00
parent fb600aa5fc
commit 181f4bb749
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

View file

@ -1834,7 +1834,7 @@ scanTxNative pipe db nodeUser nodePwd = do
blockList <- blockList <-
mapM mapM
(getBlockInfo nodeUser nodePwd . T.pack . show) (getBlockInfo nodeUser nodePwd . T.pack . show)
[2220000 .. (bl_height lB)] [2243000 .. (bl_height lB)]
let filteredBlockList = filter filterBlock blockList let filteredBlockList = filter filterBlock blockList
let txIdList = concatMap extractTxs filteredBlockList let txIdList = concatMap extractTxs filteredBlockList
txList <- mapM (getTxData nodeUser nodePwd) txIdList txList <- mapM (getTxData nodeUser nodePwd) txIdList