From a03c623cdf79a8c4878c4e423256bf19291ba7d1 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Thu, 14 Nov 2024 12:52:40 +0300 Subject: [PATCH] betta --- hbs2-peer/app/BlockDownloadNew.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/BlockDownloadNew.hs b/hbs2-peer/app/BlockDownloadNew.hs index 3503ac2a..ee9aa6f2 100644 --- a/hbs2-peer/app/BlockDownloadNew.hs +++ b/hbs2-peer/app/BlockDownloadNew.hs @@ -706,7 +706,7 @@ downloadDispatcher brains env = flip runContT pure do bm <- liftIO do case _sockType p of TCP -> AnyBurstMachine @IO <$> newBurstMachine 30 256 (Just 256) 0.20 0.10 - UDP -> AnyBurstMachine @IO <$> newBurstMachine 5 256 (Just 100) 0.15 0.35 + UDP -> AnyBurstMachine @IO <$> newBurstMachine 10 256 (Just 128) 0.20 0.35 void $ ContT $ bracket none $ const do debug $ "Cancelling thread for" <+> pretty p