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 17:32:52 +03:00
parent faf4d0eab7
commit 17210c96cc
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -525,6 +525,20 @@ postponedLoop :: forall e m . ( MyPeer e
postponedLoop env0 = do postponedLoop env0 = do
e <- ask e <- ask
void $ liftIO $ async $ withPeerM e $ withDownload env0 do
-- wip <- asks (blockWip) >>= liftIO . Cache.keys
wip0 <- asks (view blockWip) >>= liftIO . Cache.keys <&> length
twip <- liftIO $ newTVarIO wip0
forever do
pause @'Seconds 10
wip1 <- asks (view blockWip) >>= liftIO . Cache.keys
when (wip0 == length wip1) do
trace "download stuck"
for_ wip1 $ \h -> do
removeFromWip h
addDownload h
void $ liftIO $ async $ withPeerM e $ withDownload env0 do void $ liftIO $ async $ withPeerM e $ withDownload env0 do
forever do forever do