diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-03 22:45:23 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-04 20:56:33 +0200 |
| commit | fb822a15735c2fa85757c51fba6291f4d4385fe7 (patch) | |
| tree | c4131271921be2bdf9a995487088a63a87f1c9be /src/Erebos | |
| parent | 53ce8074f7d0839ff4130384247ef05f6b42e2a2 (diff) | |
Network: notify services of peer change in extended identity data
Diffstat (limited to 'src/Erebos')
| -rw-r--r-- | src/Erebos/Network.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 () |