mirror of https://github.com/voidlizard/hbs2
wip
This commit is contained in:
parent
5f54c95c89
commit
153139d90b
|
@ -42,7 +42,7 @@ defProtoPipelineSize :: Int
|
|||
defProtoPipelineSize = 65536*2
|
||||
|
||||
defCookieTimeoutSec :: Timeout 'Seconds
|
||||
defCookieTimeoutSec = 1200
|
||||
defCookieTimeoutSec = 7200
|
||||
|
||||
defCookieTimeout :: TimeSpec
|
||||
defCookieTimeout = toTimeSpec defCookieTimeoutSec
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue