From 677d6f1fd857ab9bfb33b87aa81cec200214ab17 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 14 Feb 2024 13:17:00 +0300 Subject: [PATCH] tune --- hbs2-peer/app/BlockDownload.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs index 8fe90f5d..3c537400 100644 --- a/hbs2-peer/app/BlockDownload.hs +++ b/hbs2-peer/app/BlockDownload.hs @@ -208,7 +208,7 @@ downloadFromWithPeer peer thisBkSize h = do rtt <- medianPeerRTT pinfo <&> fmap ( (/1e9) . realToFrac ) <&> fromMaybe defChunkWaitMax - let w = 4 * rtt * 256 -- realToFrac (length bursts) + let w = 10 * rtt * realToFrac (length bursts) let burstTime = min defChunkWaitMax $ realToFrac w :: Timeout 'Seconds