Funogram: fix compilation against new version

codingteam · Dec 1, 2024 · 3f70083 · 3f70083
1 parent 568f59d
commit 3f70083
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Emulsion.Telegram/Funogram.fs b/Emulsion.Telegram/Funogram.fs
@@ -174,7 +174,7 @@ module MessageConverter =
 
         let (|ForwardFrom|_|) (message: FunogramMessage) =
             match message.ForwardOrigin with
-            | Some(User { SenderUser = user }) -> Some (getUserDisplayName user)
+            | Some(MessageOrigin.User { SenderUser = user }) -> Some (getUserDisplayName user)
             | Some(HiddenUser { SenderUserName = name }) -> Some name
             | Some(MessageOrigin.Chat { SenderChat = chat }) -> Some (getChatDisplayName chat)
             | Some(MessageOrigin.Channel { Chat = chat }) -> Some (getChatDisplayName chat)

diff --git a/Emulsion.Tests/Telegram/FunogramTests.fs b/Emulsion.Tests/Telegram/FunogramTests.fs
@@ -61,7 +61,9 @@ let private createForwardedMessage from (forwarded: Funogram.Telegram.Types.Mess
         ForwardOrigin =
             forwarded.From
             |> Option.map (
-                fun u -> User(MessageOriginUser.Create(``type`` = "user", date = forwarded.Date, senderUser = u))
+                fun u -> MessageOrigin.User(
+                    MessageOriginUser.Create(``type`` = "user", date = forwarded.Date, senderUser = u)
+                )
             )
         Text = forwarded.Text }