diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2020-01-22 21:51:57 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2020-01-22 21:51:57 +0100 |
| commit | 1685c44c5592fb3043bcf6d29ddd3d7659e8346b (patch) | |
| tree | e8d330da4eaf492eb4a98b9c4afa2b3245b03cb8 /src/Identity.hs | |
| parent | a0c6c341ba1629a1c1070edf69855c745c6bd7eb (diff) | |
Announce identity update to current peers
Diffstat (limited to 'src/Identity.hs')
| -rw-r--r-- | src/Identity.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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)] |