dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-04-25 12:02:13 +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

2
src/Simplex/Chat.hs
View File

@@ -127,7 +127,7 @@ processChatCommand user@User {userId, profile} = \case
APIGetChats -> CRApiChats <$> withStore (`getChatPreviews` user)
APIGetChat cType cId -> case cType of
CTDirect -> CRApiDirectChat <$> withStore (\st -> getDirectChat st user cId)
CTGroup -> pure $ CRChatError ChatErrorNotImplemented
CTGroup -> CRApiGroupChat <$> withStore (\st -> getGroupChat st user cId)
APIGetChatItems _count -> pure $ CRChatError ChatErrorNotImplemented
ChatHelp section -> pure $ CRChatHelp section
Welcome -> pure $ CRWelcome user