Async.Await 未捕获任务异常

Question

我有一个不返回任何内容的任务。您不能对此类任务执行 Async.AwaitTask，因此您需要改为执行 Async.AwaitIAsyncTask。不幸的是，这似乎只是吞噬了底层任务抛出的任何异常：-

TaskFactory().StartNew(Action(fun _ -> failwith "oops"))
|> Async.AwaitIAsyncResult
|> Async.Ignore
|> Async.RunSynchronously

// val it : unit = ()

另一方面，AwaitTask 正确地级联异常：-

TaskFactory().StartNew(fun _ -> failwith "oops"                               
                                5)
|> Async.AwaitTask
|> Async.Ignore
|> Async.RunSynchronously

// POP!

将常规（非通用）任务视为异步但仍会传播异常的最佳方法是什么？

Answer 1

作为正确处理取消的选项：

open System.Threading.Tasks

module Async =
    let AwaitTask (t: Task) = 
        Async.FromContinuations(fun (s, e, c) ->
            t.ContinueWith(fun t -> 
                if t.IsCompleted then s()
                elif t.IsFaulted then e(t.Exception)
                else c(System.OperationCanceledException())
                )
            |> ignore
        )

Answer 2

来自Xamarin F# Shirt App（我最初是从 Dave Thomas 那里借来的）：

[<AutoOpen>]
module Async =
     let inline awaitPlainTask (task: Task) = 
        // rethrow exception from preceding task if it faulted
        let continuation (t : Task) = if t.IsFaulted then raise t.Exception
        task.ContinueWith continuation |> Async.AwaitTask