diff --git a/Emulsion.Telegram/Funogram.fs b/Emulsion.Telegram/Funogram.fs index 0a413a38..bfe3325e 100644 --- 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 index 406d3b0f..277083bd 100644 --- 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 }