From 3833de3e54b160f0e30b730a9687f7d716b16162 Mon Sep 17 00:00:00 2001 From: "Evgeny @ SimpleX Chat" <259188159+evgeny-simplex@users.noreply.github.com> Date: Sun, 12 Jul 2026 07:19:51 +0000 Subject: [PATCH] core: add domain to channel /i output --- src/Simplex/Chat/View.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/Simplex/Chat/View.hs b/src/Simplex/Chat/View.hs index cfbdcc6c9a..3aba8b2281 100644 --- a/src/Simplex/Chat/View.hs +++ b/src/Simplex/Chat/View.hs @@ -1833,15 +1833,18 @@ viewContactInfo ct@Contact {contactId, profile = LocalProfile {localAlias, conta <> viewCustomData customData viewGroupInfo :: GroupInfo -> [StyledString] -viewGroupInfo gInfo@GroupInfo {groupId, businessChat, groupDomainVerified, uiThemes, customData, groupSummary = GroupSummary {currentMembers, publicMemberCount}} = +viewGroupInfo gInfo@GroupInfo {groupId, businessChat, groupDomainVerified, groupProfile = GroupProfile {publicGroup}, uiThemes, customData, groupSummary = GroupSummary {currentMembers, publicMemberCount}} = [ "group ID: " <> sShow groupId, memberCountLine ] - -- a business presents as a contact, so its verified domain is shown as an @-name - <> simplexDomainLine NTContact (businessDomain =<< businessChat) groupDomainVerified + <> domainLine <> viewUITheme uiThemes <> viewCustomData customData where + -- a business presents as a contact (@-name); a public group/channel shows its #-name + domainLine = case businessChat of + Just bc -> simplexDomainLine NTContact (businessDomain bc) groupDomainVerified + Nothing -> simplexDomainLine NTPublicGroup (publicGroup >>= publicGroupAccess >>= groupDomainClaim) groupDomainVerified memberCountLine | useRelays' gInfo, Just count <- publicMemberCount = "subscribers: " <> sShow count | otherwise = "current members: " <> sShow currentMembers