From 17210c96cceb63f566ca80bd2ce5c6540bfde0c1 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 26 Feb 2023 17:32:52 +0300 Subject: [PATCH] wip --- hbs2-peer/app/BlockDownload.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs index 3a46fd75..bc8bb30d 100644 --- a/hbs2-peer/app/BlockDownload.hs +++ b/hbs2-peer/app/BlockDownload.hs @@ -525,6 +525,20 @@ postponedLoop :: forall e m . ( MyPeer e postponedLoop env0 = do 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 forever do