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

wip HEsUhP3CJN

This commit is contained in:
Dmitry Zuikov 2023-02-16 14:09:02 +03:00
parent e63004882d
commit 5af01af090
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -382,7 +382,7 @@ updatePeerInfo onError pinfo = do
let buM = headMay $ drop 2 $ IntSet.toDescList buSet
writeTVar (view peerBurstMax pinfo) buM
-- let s = IntSet.size buSet
let buN = defBurst -- atDef defBurst (IntSet.toList buSet) (s `div` 2 )
let buN = headDef defBurst $ drop 10 $ IntSet.toDescList buSet
pure (buN, trimDown 50 $ IntSet.insert buN buSet)