Fix annoying "Паша сука" on any reply
This commit is contained in:
parent
de385d3f49
commit
172dcf9d79
@ -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) =
|
||||||
|
Loading…
Reference in New Issue
Block a user