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

calm-down-tcp

This commit is contained in:
Dmitry Zuikov 2023-05-22 07:35:48 +03:00
parent b0a25f6640
commit 931852306b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hbs2-peer/app/BlockHttpDownload.hs
View File

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