From dde10a02d6cc3844072bc1e010cfa87b509380ac Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 20 Feb 2023 10:55:03 +0300
Subject: [PATCH] q only

---
 hbs2-peer/app/BlockDownload.hs | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs
index 229f71b2..5230e874 100644
--- a/hbs2-peer/app/BlockDownload.hs
+++ b/hbs2-peer/app/BlockDownload.hs
@@ -434,7 +434,18 @@ blockDownloadLoop env0 = do
 
 
   void $ liftIO $ async $ forever $ withPeerM e do
-    pause @'Seconds 5
+    pause @'Seconds 20
+
+    pee <- knownPeers @e pl
+    npi <- newPeerInfo
+
+    for_ pee $ \p -> do
+      pinfo <- fetch True npi (PeerInfoKey p) id
+      liftIO $ atomically $ writeTVar (view peerBurstMax pinfo) Nothing
+
+
+  void $ liftIO $ async $ forever $ withPeerM e do
+    pause @'Seconds 2
 
     pee <- knownPeers @e pl
     npi <- newPeerInfo