From 1685c44c5592fb3043bcf6d29ddd3d7659e8346b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 22 Jan 2020 21:51:57 +0100
Subject: Announce identity update to current peers

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

(limited to 'src/Identity.hs')

diff --git a/src/Identity.hs b/src/Identity.hs
index ce987b2..dcf0ca4 100644
--- a/src/Identity.hs
+++ b/src/Identity.hs
@@ -16,6 +16,7 @@ module Identity (
     displayIdentity,
 ) where
 
+import Control.Arrow
 import Control.Monad
 import Control.Monad.Except
 import qualified Control.Monad.Identity as I
@@ -49,7 +50,7 @@ type ComposedIdentity = Identity []
 type UnifiedIdentity = Identity I.Identity
 
 instance Eq UnifiedIdentity where
-    (==) = (==) `on` idData
+    (==) = (==) `on` (idData &&& idUpdates)
 
 data IdentityData = IdentityData
     { iddPrev :: [Stored (Signed IdentityData)]
-- 
cgit v1.2.3