From 153139d90b1b7da2dcb7bc93135952c5046129cb Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 29 Mar 2023 10:19:41 +0300 Subject: [PATCH] wip --- hbs2-core/lib/HBS2/Defaults.hs | 2 +- hbs2-peer/app/BlockDownload.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/hbs2-core/lib/HBS2/Defaults.hs b/hbs2-core/lib/HBS2/Defaults.hs index 81ff3428..fc2162ae 100644 --- a/hbs2-core/lib/HBS2/Defaults.hs +++ b/hbs2-core/lib/HBS2/Defaults.hs @@ -42,7 +42,7 @@ defProtoPipelineSize :: Int defProtoPipelineSize = 65536*2 defCookieTimeoutSec :: Timeout 'Seconds -defCookieTimeoutSec = 1200 +defCookieTimeoutSec = 7200 defCookieTimeout :: TimeSpec defCookieTimeout = toTimeSpec defCookieTimeoutSec diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs index fde51881..cee94b7e 100644 --- a/hbs2-peer/app/BlockDownload.hs +++ b/hbs2-peer/app/BlockDownload.hs @@ -721,7 +721,7 @@ peerDownloadLoop peer = do -- unless found do -- warn ( "peer lost. stopping peer loop" <+> pretty peer ) - maybe1 mbauth noAuth $ \_ -> do + maybe1 mbauth noAuth $ \(_,_) -> do withBlockForDownload peer $ \h -> do -- TODO: insert-busyloop-counter-for-block-request