From 83decc3bfbc68f615986062ef9e3b0a5934d83b0 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 29 Mar 2023 07:14:38 +0300
Subject: [PATCH] minor fix

---
 hbs2-peer/app/PeerMain.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs
index 7548a606..bbe5d685 100644
--- a/hbs2-peer/app/PeerMain.hs
+++ b/hbs2-peer/app/PeerMain.hs
@@ -567,6 +567,8 @@ runPeer opts = Exception.handle myException $ do
 
                    | otherwise -> do
 
+                    update d (KnownPeerKey p) id
+
                     pd' <- knownPeers @e pl >>=
                               \peers -> forM peers $ \pip -> do
                                           pd <- find (KnownPeerKey pip) (view peerOwnNonce)