core, ui: message signing (#7115)

bots/src/API/Docs/Commands.hs

@@ -86,7 +86,7 @@ chatCommandsDocsData =
     ),
     ( "Message commands",
       "Commands to send, update, delete, moderate messages and set message reactions",
-      [ ("APISendMessages", [], "Send messages.", ["CRNewChatItems", "CRChatCmdError"], [], Just UNBackground, "/_send " <> Param "sendRef" <> OnOffParam "live" "liveMessage" (Just False) <> Optional "" (" ttl=" <> Param "$0") "ttl" <> " json " <> Json "composedMessages"),
+      [ ("APISendMessages", [], "Send messages.", ["CRNewChatItems", "CRChatCmdError"], [], Just UNBackground, "/_send " <> Param "sendRef" <> OnOffParam "live" "liveMessage" (Just False) <> Optional "" (" ttl=" <> Param "$0") "ttl" <> OnOffParam "sign" "signMessages" (Just False) <> " json " <> Json "composedMessages"),
         ( "APIUpdateChatItem",
           [],
           "Update message.",

bots/src/API/Docs/Types.hs

@@ -322,6 +322,7 @@ chatTypesDocsData =
     (sti @MsgReaction, STUnion, "MR", [], "", ""),
     (sti @MsgReceiptStatus, STEnum, "MR", [], "", ""),
     (sti @MsgSigStatus, STEnum, "MSS", [], "", ""),
+    (sti @MsgVerified, STUnion, "MV", [], "", ""),
     (sti @NameErrorType, STUnion, "", [], "", ""),
     (sti @NetworkError, STUnion, "NE", [], "", ""),
     (sti @NewUser, STRecord, "", [], "", ""),
@@ -554,6 +555,7 @@ deriving instance Generic MsgFilter
 deriving instance Generic MsgReaction
 deriving instance Generic MsgReceiptStatus
 deriving instance Generic MsgSigStatus
+deriving instance Generic MsgVerified
 deriving instance Generic NameErrorType
 deriving instance Generic NetworkError
 deriving instance Generic NewUser

bots/src/API/TypeInfo.hs

@@ -240,7 +240,8 @@ toTypeInfo tr =
       [ "FullDeleteGroupPreference",
         "ReactionsGroupPreference",
         "ReportsGroupPreference",
-        "HistoryGroupPreference"
+        "HistoryGroupPreference",
+        "SignMessagesGroupPreference"
       ]
     roleGroupPrefTypes =
       [ "DirectMessagesGroupPreference",