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
@@ -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 ->