From 3a4dbc8fd753036e740e34b465b6a6fcd7e91cb2 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Thu, 14 Nov 2024 09:46:10 +0300 Subject: [PATCH] this --- hbs2-peer/app/BlockDownloadNew.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hbs2-peer/app/BlockDownloadNew.hs b/hbs2-peer/app/BlockDownloadNew.hs index 2dbb065c..4e21f0b9 100644 --- a/hbs2-peer/app/BlockDownloadNew.hs +++ b/hbs2-peer/app/BlockDownloadNew.hs @@ -746,7 +746,7 @@ downloadDispatcher brains env = flip runContT pure do what <- atomically do e <- readTVar _errors - if e > 10 then + if e > 5 then pure Nothing else do TSem.waitTSem sem @@ -780,7 +780,7 @@ downloadDispatcher brains env = flip runContT pure do if erno > 50 then do pause @'Seconds 60 else do - pause @'Seconds 1.00 + pause @'Seconds 0.5 go PChoose PInit hx dcb -> do