Fix annoying "Паша сука" on any reply

This commit is contained in:
Keroosha 2023-02-28 03:15:55 +03:00
parent de385d3f49
commit 172dcf9d79

View File

@ -50,6 +50,7 @@ module BotUpdateType =
fromAdminChat (update.Message, adminChatId) && fromAdminChat (update.Message, adminChatId) &&
hasReply update.Message && hasReply update.Message &&
hasRelaySupportedContent update.Message.ReplyToMessage && hasRelaySupportedContent update.Message.ReplyToMessage &&
hasText update.Message &&
not (getRelayCaptionType update.Message.Text = RelayCaptionMode.Unknown) not (getRelayCaptionType update.Message.Text = RelayCaptionMode.Unknown)
let private isPing (update: Update, adminChatId: ConfigChatId) = let private isPing (update: Update, adminChatId: ConfigChatId) =