diff options
Diffstat (limited to 'src/Contact.hs')
| -rw-r--r-- | src/Contact.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Contact.hs b/src/Contact.hs index 2d1e2a9..a232b8c 100644 --- a/src/Contact.hs +++ b/src/Contact.hs @@ -39,7 +39,7 @@ data Contact = Contact data ContactData = ContactData { cdPrev :: [Stored ContactData] - , cdIdentity :: [Stored (Signed IdentityData)] + , cdIdentity :: [Stored (Signed ExtendedIdentityData)] , cdName :: Maybe Text } @@ -59,7 +59,7 @@ instance Mergeable Contact where mergeSorted cdata = Contact { contactData = cdata - , contactIdentity_ = validateIdentityF $ concat $ findProperty ((\case [] -> Nothing; xs -> Just xs) . cdIdentity) cdata + , contactIdentity_ = validateExtendedIdentityF $ concat $ findProperty ((\case [] -> Nothing; xs -> Just xs) . cdIdentity) cdata , contactCustomName_ = findPropertyFirst cdName cdata } @@ -169,7 +169,7 @@ finalizeContact identity = updateLocalHead_ $ updateSharedState_ $ \contacts -> st <- getStorage cdata <- wrappedStore st ContactData { cdPrev = [] - , cdIdentity = idDataF $ finalOwner identity + , cdIdentity = idExtDataF $ finalOwner identity , cdName = Nothing } storeSetAdd st (mergeSorted @Contact [cdata]) contacts |