From ca72d543d78739772afe2de42626880a7f8ecb7a Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sun, 26 Feb 2023 18:15:13 +0300
Subject: [PATCH] wip

---
 hbs2-peer/app/BlockDownload.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs
index bc8bb30d..963788b8 100644
--- a/hbs2-peer/app/BlockDownload.hs
+++ b/hbs2-peer/app/BlockDownload.hs
@@ -539,6 +539,8 @@ postponedLoop env0 = do
           for_ wip1 $ \h -> do
             removeFromWip h
             addDownload h
+            wip2 <- asks (view blockWip) >>= liftIO . Cache.keys
+            liftIO $ atomically $ writeTVar twip (length wip2)
 
   void $ liftIO $ async $ withPeerM e $ withDownload env0 do
     forever do