等待通用任务并返回结果

Question

我有函数调用

let result = session.Query<Domain.CustomerReadModel>().ToListAsync()

返回Task<Collections.Generic.IReadOnlyList<Domain.CustomerReadModel>>

如何在 F# 中正确“等待”此任务？

我试过了

async {
   session.Query<Domain.CustomerReadModel>().ToListAsync() |> ignore
}

还有

let result = session.Query<Domain.CustomerReadModel>().ToListAsync()
  |> Async.AwaitTask
  |> Async.RunSynchronously

这似乎可以编译，但我不能使用结果并返回它：

session.Query<Domain.CustomerReadModel>().ToListAsync()
    |> Async.AwaitTask
    |> Async.RunSynchronously

Answer 1

Async.AwaitTask 接受任务，将其包装在 async 计算中，然后返回该计算。拥有它后，您可以将其与 let! 或 do! 或 return! 一起使用，就像任何其他 async 计算一样。

async {
  let queryAsFsharpAsync = session.Query<Domain.CustomerReadModel>().ToListAsync() |> Async.AwaitTask
  let! result = queryAsFsharpAsync 
  ...
}

或者不给计算自己的名字：

async {
  let! result = session.Query<Domain.CustomerReadModel>().ToListAsync() |> Async.AwaitTask
  ...
}