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

fix announces (maybe)

This commit is contained in:
Dmitry Zuikov 2023-10-18 15:53:29 +03:00
parent a1bbc634f4
commit e061a2793a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-peer/app/CheckBlockAnnounce.hs
View File

@ -75,10 +75,12 @@ acceptAnnouncesFromPeer conf@(PeerConfig syn) pa = runPlus do
let accptAnn = runReader (cfgValue @PeerAcceptAnnounceKey) syn let accptAnn = runReader (cfgValue @PeerAcceptAnnounceKey) syn
guard =<< peerBanned conf pd guard . not =<< peerBanned conf pd
case accptAnn of case accptAnn of
AcceptAnnounceAll -> pure () AcceptAnnounceAll -> do
pure ()
AcceptAnnounceFrom s -> do AcceptAnnounceFrom s -> do
guard (view peerSignKey pd `Set.member` s) guard (view peerSignKey pd `Set.member` s)