From 931852306b0396df3e55f638212efe7ac18909fc Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 22 May 2023 07:35:48 +0300
Subject: [PATCH] calm-down-tcp

---
 hbs2-peer/app/BlockHttpDownload.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/hbs2-peer/app/BlockHttpDownload.hs b/hbs2-peer/app/BlockHttpDownload.hs
index 88c0056d..0f657954 100644
--- a/hbs2-peer/app/BlockHttpDownload.hs
+++ b/hbs2-peer/app/BlockHttpDownload.hs
@@ -142,6 +142,7 @@ blockHttpDownloadLoop denv = do
 
 ---
 
+-- FIXME: move-fillPeerMeta-to-separate-module
 fillPeerMeta :: forall e  m .
     ( m ~ PeerM e IO
     , MonadIO m
@@ -158,9 +159,10 @@ fillPeerMeta :: forall e  m .
 fillPeerMeta mtcp = do
   debug "I'm fillPeerMeta"
   pl <- getPeerLocator @e
+
+  pause @'Seconds 20 -- wait 'till everything calm down
   forever do
 
-    pause @'Seconds 5
     ps <- knownPeers @e pl
     debug $ "fillPeerMeta peers:" <+> pretty ps
     npi <- newPeerInfo
@@ -244,6 +246,9 @@ fillPeerMeta mtcp = do
 
           _ -> pure ()
 
+        -- FIXME: move-hardcode-to-a-config
+        pause @'Seconds 300
+
   where
     replacePort :: Peer e -> Word16 -> PeerM e IO (IPAddrPort e)
     replacePort peer port = do