From aa63ceaa26081734d25320b410d0d84aa62fc4c5 Mon Sep 17 00:00:00 2001
From: Ayrat Hudaygulov <szer.penguin@gmail.com>
Date: Thu, 28 Sep 2023 11:05:27 +0100
Subject: [PATCH] added missed climutable

---
 src/VahterBanBot/Program.fs | 6 ++++--
 src/VahterBanBot/Types.fs   | 1 +
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/VahterBanBot/Program.fs b/src/VahterBanBot/Program.fs
index e31f4ef..ab83f17 100644
--- a/src/VahterBanBot/Program.fs
+++ b/src/VahterBanBot/Program.fs
@@ -83,14 +83,16 @@ let server = app.RunAsync()
 let telegramClient = app.Services.GetRequiredService<ITelegramBotClient>()
 
 let startLogMsg =
+    let prependUsername (s: string) =
+        if s.StartsWith("@") then s else "@" + s
     let sb = System.Text.StringBuilder()
     %sb.AppendLine("Bot started with following configuration")
     %sb.AppendLine("AllowedUsers:")
     for KeyValue(username, userId) in botConf.AllowedUsers do
-        %sb.AppendLine($"  {username} ({userId})")
+        %sb.AppendLine($"  {prependUsername username} ({userId})")
     %sb.AppendLine("ChatsToMonitor:")
     for KeyValue(username, chatId) in botConf.ChatsToMonitor do
-        %sb.AppendLine($"  {username} ({chatId})")
+        %sb.AppendLine($"  {prependUsername username} ({chatId})")
     sb.ToString()
 
 app.Logger.LogInformation startLogMsg
diff --git a/src/VahterBanBot/Types.fs b/src/VahterBanBot/Types.fs
index a012279..c5664c8 100644
--- a/src/VahterBanBot/Types.fs
+++ b/src/VahterBanBot/Types.fs
@@ -45,6 +45,7 @@ type DbUser =
 module DbUser =
     let banUser vahter reason (user: DbUser) = user.Ban(vahter, ?reason = reason)
 
+[<CLIMutable>]
 type DbMessage =
     { Chat_Id: int64
       Message_Id: int