Fix testbot

Dolfik1 · Jul 10, 2024 · 7fe655b · 7fe655b
1 parent 934e903
commit 7fe655b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/examples/Funogram.TestBot/Commands/Base.fs b/src/examples/Funogram.TestBot/Commands/Base.fs
@@ -65,7 +65,7 @@ let updateArrived (ctx: UpdateContext) =
       match c.Message with
       | Some (MaybeInaccessibleMessage.Message msg) ->
         let inlineKeyboardMarkup = InlineKeyboardMarkup.Create([| [| InlineKeyboardButton.Create("Changed!", callbackData = "Test") |] |])
-        Req.EditMessageReplyMarkup.Make(msg.Chat.Id, msg.MessageId, replyMarkup = inlineKeyboardMarkup)
+        Req.EditMessageReplyMarkup.Make(chatId = ChatId.Int msg.Chat.Id, messageId = msg.MessageId, replyMarkup = inlineKeyboardMarkup)
         |> bot ctx.Config
       | _ -> ()
     | _ -> ()

diff --git a/src/examples/Funogram.TestBot/Commands/Files.fs b/src/examples/Funogram.TestBot/Commands/Files.fs
@@ -18,6 +18,7 @@ let testUploadAndSendPhotoGroup config (chatId: int64) =
       ParseMode = None
       CaptionEntities = None
       HasSpoiler = None
+      ShowCaptionAboveMedia = None
     } |> InputMedia.Photo
 
   let image1 = Http.RequestStream(PhotoUrl).ResponseStream
@@ -38,6 +39,7 @@ let testUploadAndSendPhotoGroupAsBytes config (chatId: int64) =
       ParseMode = None
       CaptionEntities = None
       HasSpoiler = None
+      ShowCaptionAboveMedia = None
     } |> InputMedia.Photo
 
   use image1 = Http.RequestStream(PhotoUrl).ResponseStream