From fb822a15735c2fa85757c51fba6291f4d4385fe7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 3 Aug 2025 22:45:23 +0200
Subject: Network: notify services of peer change in extended identity data

---
 src/Erebos/Network.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Erebos')

diff --git a/src/Erebos/Network.hs b/src/Erebos/Network.hs
index 224748b..f0c44a4 100644
--- a/src/Erebos/Network.hs
+++ b/src/Erebos/Network.hs
@@ -822,7 +822,8 @@ handleIdentityUpdate peer ref = liftIO $ atomically $ do
         -> do
             writeTVar (peerIdentityVar peer) $ PeerIdentityFull pid'
             writeTChan (serverChanPeer $ peerServer peer) peer
-            when (idData pid /= idData pid') $ notifyServicesOfPeer peer
+            when (pid /= pid') $ do
+                notifyServicesOfPeer peer
 
         | otherwise -> return ()
 
-- 
cgit v1.2.3