Update base block for first run
This commit is contained in:
parent
fb600aa5fc
commit
181f4bb749
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue