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

minor fix

This commit is contained in:
Dmitry Zuikov 2023-03-29 07:14:38 +03:00
parent 76eb115d03
commit 83decc3bfb
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/PeerMain.hs
View File

@ -567,6 +567,8 @@ runPeer opts = Exception.handle myException $ do
| otherwise -> do | otherwise -> do
update d (KnownPeerKey p) id
pd' <- knownPeers @e pl >>= pd' <- knownPeers @e pl >>=
\peers -> forM peers $ \pip -> do \peers -> forM peers $ \pip -> do
pd <- find (KnownPeerKey pip) (view peerOwnNonce) pd <- find (KnownPeerKey pip) (view peerOwnNonce)