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

lost-peer-auth-investigation

This commit is contained in:
Dmitry Zuikov 2023-03-28 18:32:19 +03:00
parent 3c85175508
commit 5ab9b80fd3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-peer/app/BlockDownload.hs
View File

@ -708,7 +708,9 @@ peerDownloadLoop peer = do
let mbauth = (,) <$> auth' <*> pinfo' let mbauth = (,) <$> auth' <*> pinfo'
let noAuth = do 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 pause @'Seconds 1
-- liftIO $ withPeerM pe $ sendPing @e peer -- liftIO $ withPeerM pe $ sendPing @e peer
-- -- FIXME: time-hardcode -- -- FIXME: time-hardcode