implement batching

This commit is contained in:
spaced4ndy
2023-12-12 13:28:10 +04:00
parent c7cfbf0c19
commit 2d2e7cee9e
3 changed files with 62 additions and 22 deletions
+1
View File
@@ -1027,6 +1027,7 @@ data ChatErrorType
| CEContactNotActive {contact :: Contact}
| CEContactDisabled {contact :: Contact}
| CEConnectionDisabled {connection :: Connection}
| CELargeChatMsg {messageId :: Int64}
| CEGroupUserRole {groupInfo :: GroupInfo, requiredRole :: GroupMemberRole}
| CEGroupMemberInitialRole {groupInfo :: GroupInfo, initialRole :: GroupMemberRole}
| CEContactIncognitoCantInvite
+1
View File
@@ -1791,6 +1791,7 @@ viewChatError logLevel testView = \case
CEContactDisabled ct -> [ttyContact' ct <> ": disabled, to enable: " <> highlight ("/enable " <> viewContactName ct) <> ", to delete: " <> highlight ("/d " <> viewContactName ct)]
CEContactNotActive c -> [ttyContact' c <> ": not active"]
CEConnectionDisabled Connection {connId, connType} -> [plain $ "connection " <> textEncode connType <> " (" <> tshow connId <> ") is disabled" | logLevel <= CLLWarning]
CELargeChatMsg msgId -> ["large chat message, message_id=" <> sShow msgId]
CEGroupDuplicateMember c -> ["contact " <> ttyContact c <> " is already in the group"]
CEGroupDuplicateMemberId -> ["cannot add member - duplicate member ID"]
CEGroupUserRole g role ->