dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-04-26 10:58:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

getGroupChat, getGroupChatPreviews_ (#233)

Browse Source
This commit is contained in:
Efim Poberezkin
2022-01-29 16:06:08 +04:00
committed by GitHub
parent 7c36ee7955
commit d97a8c1934
11 changed files with 199 additions and 294 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Simplex/Chat/View.hs
View File

@@ -36,6 +36,7 @@ responseToView :: String -> ChatResponse -> [StyledString]
responseToView cmd = \case
CRApiChats chats -> api [sShow chats]
CRApiDirectChat chat -> api [sShow chat]
CRApiGroupChat gChat -> api [sShow gChat]
CRNewChatItem (AChatItem _ _ chat item) -> viewChatItem chat item
CRCmdAccepted _ -> r []
CRChatHelp section -> case section of
@@ -470,9 +471,9 @@ viewChatError = \case
-- e -> ["chat error: " <> sShow e]
ChatErrorStore err -> case err of
SEDuplicateName -> ["this display name is already used by user, contact or group"]
SEContactNotFound c -> ["no contact " <> ttyContact c]
SEContactNotFoundByName c -> ["no contact " <> ttyContact c]
SEContactNotReady c -> ["contact " <> ttyContact c <> " is not active yet"]
SEGroupNotFound g -> ["no group " <> ttyGroup g]
SEGroupNotFoundByName g -> ["no group " <> ttyGroup g]
SEGroupAlreadyJoined -> ["you already joined this group"]
SEFileNotFound fileId -> fileNotFound fileId
SESndFileNotFound fileId -> fileNotFound fileId