From 5b908c86320ee73f2722c85f8a47fa03ec093c6c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 10 Oct 2023 21:36:58 +0200
Subject: Use extended identity data for name

---
 src/Contact.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Contact.hs')

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
-- 
cgit v1.2.3