diff --git a/src/Simplex/Chat/View.hs b/src/Simplex/Chat/View.hs index 3ef7638df9..adbd86b9a0 100644 --- a/src/Simplex/Chat/View.hs +++ b/src/Simplex/Chat/View.hs @@ -1147,8 +1147,9 @@ viewReceivedContactRequest c Profile {fullName, shortDescr} = "to reject: " <> highlight ("/rc " <> viewName c) <> " (the sender will NOT be notified)" ] +-- TODO [relays] operator: CLI specific apis based on name viewGroupCreated :: GroupInfo -> Bool -> [StyledString] -viewGroupCreated g testView = +viewGroupCreated g@GroupInfo {groupId} testView = case incognitoMembershipProfile g of Just localProfile | testView -> incognitoProfile' profile : message @@ -1157,12 +1158,22 @@ viewGroupCreated g testView = profile = fromLocalProfile localProfile message = [ "group " <> ttyFullGroup g <> " is created, your incognito profile for this group is " <> incognitoProfile' profile, - "to add members use " <> highlight ("/create link #" <> viewGroupName g) + instruction ] + instruction + | useRelays' g = relaysInstruction + | otherwise = "to add members use " <> highlight ("/create link #" <> viewGroupName g) Nothing -> [ "group " <> ttyFullGroup g <> " is created", - "to add members use " <> highlight ("/a " <> viewGroupName g <> " ") <> " or " <> highlight ("/create link #" <> viewGroupName g) + instruction ] + where + instruction + | useRelays' g = relaysInstruction + | otherwise = "to add members use " <> highlight ("/a " <> viewGroupName g <> " ") <> " or " <> highlight ("/create link #" <> viewGroupName g) + where + relaysInstruction = + "to add members use " <> highlight ("/_create relayed link #" <> show groupId <> " auto_choose_relays=on/off") viewCannotResendInvitation :: GroupInfo -> ContactName -> [StyledString] viewCannotResendInvitation g c =