From f7fb4350261342997cabd3311f670e841b4545c6 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 22 Feb 2023 13:30:44 +0300 Subject: [PATCH] ping error fixed --- hbs2-peer/app/PeerInfo.hs | 2 +- hbs2-peer/app/PeerMain.hs | 7 ++++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/hbs2-peer/app/PeerInfo.hs b/hbs2-peer/app/PeerInfo.hs index 021c3839..aea9a480 100644 --- a/hbs2-peer/app/PeerInfo.hs +++ b/hbs2-peer/app/PeerInfo.hs @@ -104,7 +104,7 @@ pexLoop = do for_ peers sendPeerExchangeGet - pause @'Seconds 60 -- FIXME: defaults + pause @'Seconds 180 -- FIXME: defaults peerPingLoop :: forall e m . ( HasPeerLocator e m , HasPeer e diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs index b995823d..80d5f30c 100644 --- a/hbs2-peer/app/PeerMain.hs +++ b/hbs2-peer/app/PeerMain.hs @@ -444,11 +444,12 @@ runPeer opts = Exception.handle myException $ do here <- find @e (KnownPeerKey p) id <&> isJust + pfails <- fetch True npi (PeerInfoKey p) (view peerPingFailed) + -- pdownfails <- fetch True npi (PeerInfoKey p) (view peerDownloadFail) + unless here do - pfails <- fetch True npi (PeerInfoKey p) (view peerPingFailed) - pdownfails <- fetch True npi (PeerInfoKey p) (view peerDownloadFail) liftIO $ atomically $ writeTVar pfails 0 - liftIO $ atomically $ writeTVar pdownfails 0 + -- liftIO $ atomically $ writeTVar pdownfails 0 debug $ "Got authorized peer!" <+> pretty p <+> pretty (AsBase58 (view peerSignKey d))