diff options
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)] |