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

wtf

This commit is contained in:
Dmitry Zuikov 2023-02-27 10:35:07 +03:00
parent fad91d4334
commit 090f5450ad
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-peer/app/PeerInfo.hs
View File

@ -129,8 +129,8 @@ peerPingLoop = do
subscribe @e PeerExchangePeersKey $ \(PeerExchangePeersData sas) -> do subscribe @e PeerExchangePeersKey $ \(PeerExchangePeersData sas) -> do
liftIO $ atomically $ writeTQueue wake sas liftIO $ atomically $ writeTQueue wake sas
subscribe @e AnyKnownPeerEventKey $ \(KnownPeerEvent p _) -> do -- subscribe @e AnyKnownPeerEventKey $ \(KnownPeerEvent p _) -> do
liftIO $ atomically $ writeTQueue wake [p] -- liftIO $ atomically $ writeTQueue wake [p]
forever do forever do
@ -160,7 +160,7 @@ peerPingLoop = do
fnum <- liftIO $ readTVarIO pfails fnum <- liftIO $ readTVarIO pfails
fdown <- liftIO $ readTVarIO pdownfails fdown <- liftIO $ readTVarIO pdownfails
when (fnum > 2) do -- FIXME: hardcode! when (fnum > 3) do -- FIXME: hardcode!
warn $ "removing peer" <+> pretty p <+> "for not responding to our pings" warn $ "removing peer" <+> pretty p <+> "for not responding to our pings"
delPeers pl [p] delPeers pl [p]
expire (PeerInfoKey p) expire (PeerInfoKey p)