From 8a3509cad6ce14e149cec4dcbc1eeafb531c5cd5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 26 Feb 2026 21:17:32 +0100
Subject: Discovery: clear peer map from dropped peers

---
 src/Erebos/Network.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Erebos/Network.hs')

diff --git a/src/Erebos/Network.hs b/src/Erebos/Network.hs
index ebecbc0..518e992 100644
--- a/src/Erebos/Network.hs
+++ b/src/Erebos/Network.hs
@@ -908,6 +908,7 @@ dropPeerInner peer pvalue = do
             PeerConnected conn -> do
                 connClose conn
                 writeTChan (serverChanPeer $ peerServer peer) peer
+                notifyServicesOfPeer False peer
             _ -> return ()
         writeTVar (peerState peer) PeerDropped
     return $ M.delete (peerAddress peer) pvalue
-- 
cgit v1.2.3