(#102) LinkGenerator: migrate to async

codingteam · Oct 3, 2021 · 1177910 · 1177910
1 parent 4816be7
commit 1177910
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/Emulsion.Tests/Telegram/FunogramTests.fs b/Emulsion.Tests/Telegram/FunogramTests.fs
@@ -142,7 +142,7 @@ let private forwardingUser = createUser (Some "forwardingUser") "" None
 
 module ReadMessageTests =
     let private readMessage m =
-        let links = LinkGenerator.gatherLinks m
+        let links = Async.RunSynchronously(LinkGenerator.gatherLinks m)
         MessageConverter.read selfUserId (m, links)
 
     [<Fact>]

diff --git a/Emulsion/Telegram/Funogram.fs b/Emulsion/Telegram/Funogram.fs
@@ -300,7 +300,7 @@ let internal processSendResult(result: Result<'a, ApiResponseError>): unit =
         failwith $"Telegram API Call processing error {e.ErrorCode}: {e.Description}"
 
 let private extractLinkData message =
-    message, gatherLinks message
+    message, Async.RunSynchronously(gatherLinks message)
 
 let internal processMessage (context: {| SelfUserId: int64; GroupId: int64 |})
                             (message: FunogramMessage): Message option =

diff --git a/Emulsion/Telegram/LinkGenerator.fs b/Emulsion/Telegram/LinkGenerator.fs
@@ -23,7 +23,9 @@ let private gatherMessageLink(message: FunogramMessage) =
     | { Text = Some _} | { Poll = Some _ } -> None
     | _ -> getMessageLink message
 
-let gatherLinks(message: FunogramMessage): TelegramThreadLinks = {
-    ContentLink = gatherMessageLink message
-    ReplyToContentLink = message.ReplyToMessage |> Option.bind gatherMessageLink
+let gatherLinks(message: FunogramMessage): Async<TelegramThreadLinks> = async {
+    return {
+        ContentLink = gatherMessageLink message
+        ReplyToContentLink = message.ReplyToMessage |> Option.bind gatherMessageLink
+    }
 }