From 090f5450ad3c8e886b835063aba3d548dd3317e4 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 27 Feb 2023 10:35:07 +0300 Subject: [PATCH] wtf --- hbs2-peer/app/PeerInfo.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hbs2-peer/app/PeerInfo.hs b/hbs2-peer/app/PeerInfo.hs index 07f55a56..3dc513ad 100644 --- a/hbs2-peer/app/PeerInfo.hs +++ b/hbs2-peer/app/PeerInfo.hs @@ -129,8 +129,8 @@ peerPingLoop = do subscribe @e PeerExchangePeersKey $ \(PeerExchangePeersData sas) -> do liftIO $ atomically $ writeTQueue wake sas - subscribe @e AnyKnownPeerEventKey $ \(KnownPeerEvent p _) -> do - liftIO $ atomically $ writeTQueue wake [p] + -- subscribe @e AnyKnownPeerEventKey $ \(KnownPeerEvent p _) -> do + -- liftIO $ atomically $ writeTQueue wake [p] forever do @@ -160,7 +160,7 @@ peerPingLoop = do fnum <- liftIO $ readTVarIO pfails 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" delPeers pl [p] expire (PeerInfoKey p)