F＃中的异步EF查询

Question

在使用EF6的C＃中，我可以轻松地进行如下异步操作：

using (var context = new MyDbContext()) {
    var item = await context.SomeEntities.Where(e => e.Id == 1).FirstAsync();
    DoSomething(item);
}

如何使用F＃异步工作流程执行相同操作？

我知道query工作流以及如何使用它代替LINQ，但是我不知道如何使其正确异步（即，不像C＃示例那样永久占用线程池）。 这是到目前为止我得到的（它是同步的）：

use context = MyDbContext()
let item = query {
    for e in context.SomeEntities
    where (e.Id = 1)
    head
}
DoSomething item

我正在寻找某些操作，例如headAsync （类似于C＃查询中的FirstAsync ）或其他可靠的解决方案。

Answer 1

您可以使用与C＃中相同的扩展方法。

open System.Data.Entity

let asyncQuery = async {
    return! 
        query { 
        for e in context.SomeEntities do
        where (e.Id = 1)
        select e}
        |> QueryableExtensions.FirstAsync
        |> Async.AwaitTask
}

let result = Async.RunSynchronously asyncQuery