diff options
Diffstat (limited to 'src')
| -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 () |