From 11c11249946eb2edc88b00ec4629ef7a6f757cd2 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Fri, 1 Nov 2024 12:24:35 +0300
Subject: [PATCH] reallyBusy counter

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

diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs
index 37651e0b..e7c08360 100644
--- a/hbs2-peer/app/BlockDownload.hs
+++ b/hbs2-peer/app/BlockDownload.hs
@@ -350,7 +350,7 @@ blockDownloadLoop env0 = do
     -- UPDATE-STATS-LOOP
     void $ ContT $ withAsync $ updateRates e rates nonces
 
-    replicateM_ downT $ ContT $ withAsync do
+    void $ ContT $ withAsync do
       forever do
         pause @'Seconds 120
         atomically do
@@ -638,6 +638,10 @@ blockDownloadLoop env0 = do
         S.yield =<< liftIO (readTVarIO sizeReq <&> ("sizeReq",) . fromIntegral . HashMap.size)
         S.yield =<< liftIO (readTVarIO seen <&> ("seen",) . fromIntegral . HashMap.size)
 
+        b <- liftIO (readTVarIO busy) <&> HM.elems
+        let reallyBusy = sum [ 1 | v <- b, v > 0 ]
+        S.yield ("reallyBusy", reallyBusy)
+
     forever do
       withPeerM e $ withDownload env0 do
         pause @'Seconds 5