core, ui: chat relay addresses (#6191)

This commit is contained in:
Evgeny
2025-08-15 17:37:10 +01:00
committed by GitHub
parent 16ed5bcb57
commit fb8d8ec7c3
7 changed files with 11 additions and 4 deletions

View File

@@ -3534,6 +3534,7 @@ processChatCommand vr nm = \case
Just (cReq, g) -> pure $ Just (con cReq, CPGroupLink (GLPOwnLink g))
Nothing -> (gPlan =<<) <$> getGroupViaShortLinkToConnect db vr user l'
CCTChannel -> throwCmdError "channel links are not supported in this version"
CCTRelay -> throwCmdError "chat relay links are not supported in this version"
connectWithPlan :: User -> IncognitoEnabled -> ACreatedConnLink -> ConnectionPlan -> CM ChatResponse
connectWithPlan user@User {userId} incognito ccLink plan
| connectionPlanProceed plan = do

View File

@@ -72,7 +72,7 @@ mentionedNames = mapMaybe (\(FormattedText f _) -> mentionedName =<< f)
Mention name -> Just name
_ -> Nothing
data SimplexLinkType = XLContact | XLInvitation | XLGroup | XLChannel
data SimplexLinkType = XLContact | XLInvitation | XLGroup | XLChannel | XLRelay
deriving (Eq, Show)
colored :: Color -> Format
@@ -326,6 +326,7 @@ markdownP = mconcat <$> A.many' fragmentP
CCTGroup -> XLGroup
CCTChannel -> XLChannel
CCTContact -> XLContact
CCTRelay -> XLRelay
strEncodeText :: StrEncoding a => a -> Text
strEncodeText = safeDecodeUtf8 . strEncode