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

fixed annoying-lost-peer-auth-message

This commit is contained in:
Dmitry Zuikov 2023-02-28 11:18:48 +03:00
parent e0602c7088
commit f6ba0ec42c
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.fixme/log
View File

@ -245,4 +245,7 @@ fixme-set "workflow" "backlog" "G8FMaRmAga"
(fixme-set "workflow" "test" "3YEidKkHwW") (fixme-set "workflow" "test" "3YEidKkHwW")
(fixme-set "assigned" "voidlizard" "8TFq4jSHUM") (fixme-set "assigned" "voidlizard" "8TFq4jSHUM")
(fixme-set "workflow" "test" "8TFq4jSHUM") (fixme-set "workflow" "test" "8TFq4jSHUM")
fixme-merged "EGPR1m3NNr" "5RbVNm9SRz"
(fixme-set "assigned" "voidlizard" "5RbVNm9SRz")
(fixme-set "workflow" "test" "5RbVNm9SRz")

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

@ -383,7 +383,8 @@ blockDownloadLoop env0 = do
peers' <- forM known $ \p -> do peers' <- forM known $ \p -> do
auth <- lift $ find (KnownPeerKey p) id <&> isJust auth <- lift $ find (KnownPeerKey p) id <&> isJust
if auth then pinfo <- lift $ find (PeerInfoKey p) id <&> isJust
if auth && pinfo then
pure [(p,())] pure [(p,())]
else else
pure mempty pure mempty