Extensions for Async

Async.fs

module Async
open System.Threading.Tasks
let ForEach<'T> (computations: Async<'T> list) =
    let rec forEach l r =
        async {
            match l with
            | f::t -> 
                let! x = f
                return! x::r |> forEach t
            | [] -> return r |> List.rev
        }
    async {
        return! forEach computations []
    }
let inline StartAsPlainTask (work : Async<unit>) = Task.Factory.StartNew(fun () -> work |> Async.RunSynchronously)
let inline awaitPlainTask (task: Task) = 
    // rethrow exception from preceding task if it fauled
    let continuation (t : Task) : unit =
        match t.IsFaulted with
        | true -> raise t.Exception
        | _ -> ()
    task.ContinueWith continuation |> Async.AwaitTask
let inline tryRunTask task = 
    async {
        let! result = task |> awaitPlainTask |> Async.Catch
        match result with
        | Choice2Of2 ex -> return Result.Error ex
        | _ -> return Result.Ok ()
    }