Funogram: fix compilation against new version

Author: ForNeVeR

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)

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 }