another NRE fixed

fsharplang-ru · Jan 22, 2024 · e8338db · e8338db
1 parent 8064735
commit e8338db
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/VahterBanBot/Bot.fs b/src/VahterBanBot/Bot.fs
@@ -47,10 +47,11 @@ let isBannedPersonAdmin (botConfig: BotConfiguration) (message: Message) =
     botConfig.AllowedUsers.ContainsValue message.ReplyToMessage.From.Id
 
 let isKnownCommand (message: Message) =
-    isPingCommand message ||
-    isBanCommand message ||
-    isUnbanCommand message ||
-    isSoftBanCommand message
+    message.Text <> null &&
+    (isPingCommand message ||
+     isBanCommand message ||
+     isUnbanCommand message ||
+     isSoftBanCommand message)
 
 let isBanAuthorized
     (botConfig: BotConfiguration)