From d9e5046a6a9ab2c4093221bc22ec0c8cade01438 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 13 Feb 2023 11:59:32 +0300
Subject: [PATCH] minor fix

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

diff --git a/hbs2-core/lib/HBS2/Net/Proto/Peer.hs b/hbs2-core/lib/HBS2/Net/Proto/Peer.hs
index 4ffa26e6..ffded89a 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/Peer.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/Peer.hs
@@ -94,18 +94,18 @@ peerHandShakeProto =
   \case
     PeerPing nonce  -> do
       pip <- thatPeer proto
-      -- TODO: взять свои ключи
+      -- взять свои ключи
       creds <- getCredentials @e
 
-      -- TODO: подписать нонс
+      -- подписать нонс
       let sign = makeSign @e (view peerSignSk creds) nonce
 
       own <- peerNonce @e
 
-      -- TODO: отправить обратно вместе с публичным ключом
+      -- отправить обратно вместе с публичным ключом
       response (PeerPong @e nonce sign (PeerData (view peerSignPk creds) own))
 
-      -- TODO: да и пингануть того самим
+      -- да и пингануть того самим
 
       se <- find (KnownPeerKey pip) id <&> isJust
 
@@ -127,10 +127,6 @@ 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)