Use forward slash in commands

This commit is contained in:
Alexander Pushkov 2023-03-04 11:40:25 +00:00
parent 172dcf9d79
commit 4d87d39431

View File

@ -14,8 +14,8 @@ open Telegram.Bot.Types.InputFiles
module BotUpdateType =
let private getRelayCaptionType (command: string) =
match command with
| _ when command.StartsWith "\\post anon" -> Anonymous
| _ when command.StartsWith "\\post" -> WithAuthor
| _ when command.StartsWith "/post anon" -> Anonymous
| _ when command.StartsWith "/post" -> WithAuthor
| _ -> Unknown
let private updateIsAMessage (update: Update) =
@ -37,7 +37,7 @@ module BotUpdateType =
| MessageType.Video -> true
| _ -> false
let [<Literal>] private YoutubeRepostMatchCmd = "\\ytdl"
let [<Literal>] private YoutubeRepostMatchCmd = "/ytdl"
let private isYoutubeRepost (update: Update, adminChatId: ConfigChatId) =
updateIsAMessage update &&
fromAdminChat (update.Message, adminChatId) &&
@ -57,7 +57,7 @@ module BotUpdateType =
updateIsAMessage update &&
fromAdminChat (update.Message, adminChatId) &&
hasText update.Message &&
update.Message.Text.StartsWith("\ping")
update.Message.Text.StartsWith("/ping")
let getUpdateType (update: Update) (config: BotConfig) =
match update with