voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2023-02-26 18:15:13 +03:00
parent 17210c96cc
commit ca72d543d7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/BlockDownload.hs
View File

@ -539,6 +539,8 @@ postponedLoop env0 = do
for_ wip1 $ \h -> do for_ wip1 $ \h -> do
removeFromWip h removeFromWip h
addDownload h addDownload h
wip2 <- asks (view blockWip) >>= liftIO . Cache.keys
liftIO $ atomically $ writeTVar twip (length wip2)
void $ liftIO $ async $ withPeerM e $ withDownload env0 do void $ liftIO $ async $ withPeerM e $ withDownload env0 do
forever do forever do