From 9870d4dadcec6a81d9e0c4832adb4e54228bab47 Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Wed, 15 Jul 2026 13:19:17 +0100 Subject: [PATCH] fix --- src/Simplex/Chat/Library/Internal.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/Simplex/Chat/Library/Internal.hs b/src/Simplex/Chat/Library/Internal.hs index 1cbc6b35a7..221d5c868e 100644 --- a/src/Simplex/Chat/Library/Internal.hs +++ b/src/Simplex/Chat/Library/Internal.hs @@ -1273,15 +1273,16 @@ redactedMemberProfile g m Profile {displayName, fullName, shortDescr, descriptio allowSimplexLinks = groupFeatureMemberAllowed SGFSimplexLinks m g && allowDirect removeSimplexLink dropOnLink s | allowSimplexLinks = Just s - | hasObfuscatedSimplexLink s = Nothing | otherwise = case parseMaybeMarkdownList s of - Nothing -> Just s + Nothing -> dropObfuscated Just fts - | not (any ftIsSimplexLink fts) -> Just s + | not (any ftIsSimplexLink fts) -> dropObfuscated | dropOnLink || T.null (T.strip kept) -> Nothing | otherwise -> Just kept where kept = T.concat $ map (\(FormattedText _ t) -> t) $ filter (not . ftIsSimplexLink) fts + where + dropObfuscated = if hasObfuscatedSimplexLink s then Nothing else Just s -- Roles carried by the roster; owners are on the link, not the roster. isRosterRole :: GroupMemberRole -> Bool