exception-handling - Async.Await未捕获任务异常

Question

我有一个不返回任何东西的任务。您无法在此类Task上执行Async.AwaitTask，因此您需要执行Async.AwaitIAsyncTask。不幸的是，这似乎吞没了底层Task抛出的所有异常:-

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

从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