From 5af01af0900d85100adf5c4ce26b0d635ce2199c Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 16 Feb 2023 14:09:02 +0300
Subject: [PATCH] wip HEsUhP3CJN

---
 hbs2-peer/app/BlockDownload.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs
index e42a4cf2..12a667d9 100644
--- a/hbs2-peer/app/BlockDownload.hs
+++ b/hbs2-peer/app/BlockDownload.hs
@@ -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)