lost-peer-auth-investigation

2023-03-28 18:32:19 +03:00 · 2023-03-28 18:32:19 +03:00 · 5ab9b80fd3
parent 3c85175508
commit 5ab9b80fd3
1 changed files with 3 additions and 1 deletions
--- 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