type name

This commit is contained in:
Evgeny Poberezkin
2026-06-27 15:34:11 +01:00
parent 471a538622
commit fbcdd1f21f
2 changed files with 2 additions and 2 deletions
+1 -1
View File
@@ -429,7 +429,7 @@ getUserContactProfiles db User {userId} =
(Only userId)
where
toContactProfile :: (ContactName, Text, Maybe Text, Maybe ImageData, Maybe ConnLinkContact, Maybe ChatPeerType, Maybe SimplexNameInfo, Maybe Preferences) -> Profile
toContactProfile (displayName, fullName, shortDescr, image, contactLink, peerType, contactDomainRaw, preferences) = Profile {displayName, fullName, shortDescr, image, contactLink, contactDomain = StrJSON <$> contactDomainRaw, peerType, preferences, badge = Nothing, contactDomainProof = Nothing}
toContactProfile (displayName, fullName, shortDescr, image, contactLink, peerType, contactDomain, preferences) = Profile {displayName, fullName, shortDescr, image, contactLink, contactDomain = StrJSON <$> contactDomain, peerType, preferences, badge = Nothing, contactDomainProof = Nothing}
createUserContactLink :: DB.Connection -> User -> ConnId -> CreatedLinkContact -> SubscriptionMode -> C.PrivateKeyEd25519 -> ExceptT StoreError IO ()
createUserContactLink db User {userId} agentConnId (CCLink cReq shortLink) subMode linkPrivSigKey =
+1 -1
View File
@@ -694,7 +694,7 @@ data Profile = Profile
preferences :: Maybe Preferences,
peerType :: Maybe ChatPeerType,
badge :: Maybe BadgeProof,
contactDomain :: Maybe (StrJSON "SimplexName" SimplexNameInfo),
contactDomain :: Maybe (StrJSON "SimplexNameInfo" SimplexNameInfo),
contactDomainProof :: Maybe NameClaimProof
-- fields that should not be read into this data type to prevent sending them as part of profile to contacts:
-- - contact_profile_id