logging on auto-ban (#49)

fsharplang-ru · Aug 7, 2024 · f2b1c59 · f2b1c59
1 parent 3501132
commit f2b1c59
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/VahterBanBot/Bot.fs b/src/VahterBanBot/Bot.fs
@@ -466,6 +466,9 @@ let autoBan
     if double socialScore <= botConfig.MlSpamAutobanScoreThreshold then
         // ban user in all monitored chats
         do! totalBan botClient botConfig message botUser logger
+        let msg = $"Auto-banned user {prependUsername message.From.Username} ({message.From.Id}) due to the low social score {socialScore}"
+        logger.LogInformation msg
+        do! botClient.SendTextMessageAsync(ChatId(botConfig.LogsChannelId), msg) |> taskIgnore
 }
 
 let justMessage