diff --git a/src/Simplex/Chat/Store/Groups.hs b/src/Simplex/Chat/Store/Groups.hs index b4cdf91b8e..b10b7ad239 100644 --- a/src/Simplex/Chat/Store/Groups.hs +++ b/src/Simplex/Chat/Store/Groups.hs @@ -2721,11 +2721,7 @@ updateGroupProfile db user@User {userId} g@GroupInfo {groupId, localDisplayName, -- group_domain is owned by publicGroup; when the incoming profile has no publicGroup (a business, whose domain -- is set out-of-band) the CASE leaves the stored group_domain unchanged instead of clearing it. updateGroupProfile_ currentTs = - -- the wire carries the domain but not its signed proof (the group's link is authoritative for the claim), so - -- keep the stored proof on an unchanged domain instead of overwriting it with the empty incoming one, the same - -- way updateContactProfile preserves contactDomain's proof - let (groupWebPage_, groupDomain_, domainWebPage_, allowEmbedding_, _) = publicGroupAccessRow publicGroup - groupDomainProof_ = if claimChanged then Nothing else oldPublicGroup >>= publicGroupAccess >>= groupDomainClaim >>= proof + let (groupWebPage_, groupDomain_, domainWebPage_, allowEmbedding_, groupDomainProof_) = publicGroupAccessRow publicGroup in DB.execute db [sql|