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

wtf

This commit is contained in:
Dmitry Zuikov 2023-02-27 10:37:23 +03:00
parent 090f5450ad
commit 5055700461
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -461,7 +461,7 @@ runPeer opts = Exception.handle myException $ do
pd <- find (KnownPeerKey pip) id -- <&> isJust pd <- find (KnownPeerKey pip) id -- <&> isJust
banned <- maybe (pure False) (peerBanned pip) pd banned <- maybe (pure False) (peerBanned pip) pd
let known = isJust pd && not banned let known = isJust pd && not banned
unless known $ sendPing pip sendPing pip
subscribe @e BlockAnnounceInfoKey $ \(BlockAnnounceEvent p bi no) -> do subscribe @e BlockAnnounceInfoKey $ \(BlockAnnounceEvent p bi no) -> do
pa <- toPeerAddr p pa <- toPeerAddr p