F# await 任务并使用其结果

Question

我对 F# 有点陌生，我正在尝试在 F# 模块中使用一些 C# 类。

let getApps (context: MyContext) =
    context.Provider.GetService<AppRepository>().GetActiveAsync().Result
    |> List.ofSeq
    |> List.map printName
    |> ignore

我的 C# 开发人员尖叫：.Result 很糟糕 ????。所以我的问题是，如何将这段代码重构为更优雅的方式，并利用 F# 中适当的异步编程。

我一直在尝试使用不同的变体：

|> Async.AwaitTask
|> Async.RunSynchronously

但它看起来很丑而且不短，并不是说我不确定它是否有效地利用了处理器时间。

Answer 1

要记住的一点是Async.RunSynchronously 与访问Result 基本相同。这两个操作都会阻塞当前线程，等到后台操作完成后再给你结果。

这意味着如果您需要使用RunSynchronously 等待结果，那么使用async { .. } 是没有意义的。 （除了RunSynchronously 有一个非常长且丑陋的名字，它明确而明确地告诉你这是怎么回事！）

如果您可以构建您的代码以便您无需等待，那么值得更改 getApps 以便它异步返回结果：

let getApps (context: MyContext) = async {        
  let! repos = 
    context.Provider.GetService<AppRepository>().GetActiveAsync()
    |> Async.AwaitTask
  return repos |> List.map printName }

然后您可以从另一个 async { .. } 块调用它，并最终使用 Async.Start 在后台启动计算。但是，如果您使用Async.RunSynchronously，那么这样做是没有意义的。

Answer 2

下面应该可以解决问题：

let getApps (context: MyContext) =
    async{
       let! result = context.Provider.GetService<AppRepository>().GetActiveAsync() 
                     |> Async.AwaitTask

       result
       |> Seq.iter printName
    }

getApps ctx
|> Async.RunSynchronously

这样您在等待 GetActive 完成时不会阻塞线程。附带说明一下，如果您正在执行某些操作，您可以使用 Seq.iter 而不是 Seq.map 并且您不需要转换为列表。您可以使用 seq。