chat groups: establish connection between host and invitee members (#77)

* create group after invitation

* add group invitation to db, show sent and received group invitations

* test creating group and sending invitation

* establish group connections (WIP)

* connect user to the inviter, notification, member classification
This commit is contained in:
Evgeny Poberezkin
2021-07-16 07:40:55 +01:00
committed by GitHub
parent e9d931059b
commit f1a44383fa
14 changed files with 531 additions and 247 deletions
+8 -1
View File
@@ -40,7 +40,14 @@ data ChatError
| ChatErrorStore StoreError
deriving (Show, Exception)
data ChatErrorType = CEGroupRole | CEGroupDuplicateMember deriving (Show, Exception)
data ChatErrorType
= CEGroupRole
| CEGroupDuplicateMember ContactName
| CEGroupDuplicateMemberId
| CEGroupNotJoined GroupName
| CEGroupMemberNotReady
| CEGroupInternal String
deriving (Show, Exception)
type ChatMonad m = (MonadUnliftIO m, MonadReader ChatController m, MonadError ChatError m)