diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-26 21:17:32 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-28 18:51:19 +0100 |
| commit | 8a3509cad6ce14e149cec4dcbc1eeafb531c5cd5 (patch) | |
| tree | 5e6bccda1ffe0db50cfe7bbbf34e06b300d2e5c1 /src/Erebos/Network.hs | |
| parent | 7126124e6ab2f4c6882b4f5116d3879112699405 (diff) | |
Discovery: clear peer map from dropped peers
Diffstat (limited to 'src/Erebos/Network.hs')
| -rw-r--r-- | src/Erebos/Network.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |