gistfile1.txt

type AsyncBuilder with
    member __.Bind(computation: System.Threading.Tasks.Task<'a>, binder: 'a -> Async<'b>): Async<'b> =
        async {
            let! a = Async.AwaitTask computation
            return! binder a
        }

    member __.Bind(computation: System.Threading.Tasks.Task, binder: unit -> Async<unit>): Async<unit> =
        async {
            do! Async.AwaitTask computation
            return! binder ()
        }

    member __.ReturnFrom(computation: System.Threading.Tasks.Task<'a>): Async<'a> = Async.AwaitTask computation