From e061a2793ac4b88cd422cfc4d62575ffd10b7e77 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 18 Oct 2023 15:53:29 +0300 Subject: [PATCH] fix announces (maybe) --- hbs2-peer/app/CheckBlockAnnounce.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/hbs2-peer/app/CheckBlockAnnounce.hs b/hbs2-peer/app/CheckBlockAnnounce.hs index 3784a98f..a107ac0a 100644 --- a/hbs2-peer/app/CheckBlockAnnounce.hs +++ b/hbs2-peer/app/CheckBlockAnnounce.hs @@ -75,10 +75,12 @@ acceptAnnouncesFromPeer conf@(PeerConfig syn) pa = runPlus do let accptAnn = runReader (cfgValue @PeerAcceptAnnounceKey) syn - guard =<< peerBanned conf pd + guard . not =<< peerBanned conf pd case accptAnn of - AcceptAnnounceAll -> pure () + AcceptAnnounceAll -> do + pure () + AcceptAnnounceFrom s -> do guard (view peerSignKey pd `Set.member` s)