From 5ab9b80fd36a9081c36341c3835dd5cf1a92213c Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 28 Mar 2023 18:32:19 +0300 Subject: [PATCH] lost-peer-auth-investigation --- hbs2-peer/app/BlockDownload.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs index e6ed9c76..73d93ba7 100644 --- a/hbs2-peer/app/BlockDownload.hs +++ b/hbs2-peer/app/BlockDownload.hs @@ -708,7 +708,9 @@ peerDownloadLoop peer = do let mbauth = (,) <$> auth' <*> pinfo' let noAuth = do - warn ( "lost peer auth" <+> pretty peer ) + let authNone = isNothing auth' + let pingNone = isNothing pinfo' + warn ( "lost peer auth" <+> pretty peer <+> pretty authNone <+> pretty pingNone ) pause @'Seconds 1 -- liftIO $ withPeerM pe $ sendPing @e peer -- -- FIXME: time-hardcode