From 44ada95e3f48d9c2b6a4215ce4167d4b0f0d41f1 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 20 Oct 2023 06:59:41 +0300
Subject: [PATCH] debug: sumultaneous-downloads-coeff

---
 hbs2-peer/app/Brains.hs | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/hbs2-peer/app/Brains.hs b/hbs2-peer/app/Brains.hs
index 0430c6a3..c409e825 100644
--- a/hbs2-peer/app/Brains.hs
+++ b/hbs2-peer/app/Brains.hs
@@ -137,19 +137,27 @@ instance ( Hashable (Peer e)
     downs <- liftIO $ readTVarIO (view brainsPostponeDown b)
 
     r <- forM peers $ \p -> do
-           let v = HashMap.lookup (p,h) downs & fromMaybe 0 & (<4)
+           let v = HashMap.lookup (p,h) downs & fromMaybe 0 & (<simK)
            pure [v]
 
     let postpone = not (List.null r || or (mconcat r) )
 
     pure postpone
+    where
+      simK = 10
 
+  -- FIXME: investigate-simK-affects-anything
+  --   проверить
   shouldDownloadBlock b p h = do
     noPeers <- liftIO $ readTVarIO (view brainsPeers b) <&> List.null
     downs <- liftIO $ readTVarIO (view brainsPostponeDown b)
-    let doo = HashMap.lookup (p,h) downs & fromMaybe 0 & (<4)
+    let doo = HashMap.lookup (p,h) downs & fromMaybe 0 & (<simK)
     -- trace $ "shouldDownloadBlock" <+> pretty noPeers <+> pretty doo
-    pure $ noPeers || (HashMap.lookup (p,h) downs & fromMaybe 0 & (<4))
+    pure $ noPeers || (HashMap.lookup (p,h) downs & fromMaybe 0 & (<simK))
+    where
+      -- TODO: simK-to-settings
+      --   в настройки, если на что-либо влияет
+      simK = 10
 
   advisePeersForBlock b h = do
     r <- liftIO $ findPeers b h