From 3e9769977591c46d4ebe66af71e41e7797013160 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 13 Feb 2023 12:01:55 +0300
Subject: [PATCH] fixing consequences of the prev. minor fix

---
 hbs2-core/lib/HBS2/Net/Proto/Peer.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/hbs2-core/lib/HBS2/Net/Proto/Peer.hs b/hbs2-core/lib/HBS2/Net/Proto/Peer.hs
index ffded89a..9c2e6f03 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/Peer.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/Peer.hs
@@ -127,6 +127,10 @@ peerHandShakeProto =
 
           expire (PeerHandshakeKey (nonce0,pip))
 
+          -- FIXME: check if peer is blacklisted
+          --        right here
+          update d (KnownPeerKey pip) id
+
           emit AnyKnownPeerEventKey (KnownPeerEvent pip d)
           emit (ConcretePeerKey pip) (ConcretePeerData pip d)