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

this

This commit is contained in:
voidlizard 2024-11-14 09:46:10 +03:00
parent 9a24890bbc
commit b6bd4cf441
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-peer/app/BlockDownloadNew.hs
View File

@ -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