voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2023-03-29 10:19:41 +03:00
parent 5f54c95c89
commit 153139d90b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Defaults.hs
View File

@ -42,7 +42,7 @@ defProtoPipelineSize :: Int
defProtoPipelineSize = 65536*2 defProtoPipelineSize = 65536*2
defCookieTimeoutSec :: Timeout 'Seconds defCookieTimeoutSec :: Timeout 'Seconds
defCookieTimeoutSec = 1200 defCookieTimeoutSec = 7200
defCookieTimeout :: TimeSpec defCookieTimeout :: TimeSpec
defCookieTimeout = toTimeSpec defCookieTimeoutSec defCookieTimeout = toTimeSpec defCookieTimeoutSec

2
hbs2-peer/app/BlockDownload.hs
View File

@ -721,7 +721,7 @@ peerDownloadLoop peer = do
-- unless found do -- unless found do
-- warn ( "peer lost. stopping peer loop" <+> pretty peer ) -- warn ( "peer lost. stopping peer loop" <+> pretty peer )
maybe1 mbauth noAuth $ \_ -> do maybe1 mbauth noAuth $ \(_,_) -> do
withBlockForDownload peer $ \h -> do withBlockForDownload peer $ \h -> do
-- TODO: insert-busyloop-counter-for-block-request -- TODO: insert-busyloop-counter-for-block-request