在调用F#异步工作流时,我可以避免定义临时标签吗？

Question

假设我有一个异步数据源:

let getData() = async { return [ 3.14; 2.72 ] }

我可以使用let!和临时标签来调用它:

let showData1() = async {
    let! data = getData()
    data
    |> Seq.iter (printfn "%A")
}

或者,我可以称之为(效率低下!)使用Async.RunSynchronously和管道,没有临时标签:

let showData2() = async {
    getData()
    |> Async.RunSynchronously
    |> Seq.iter (printfn "%A")
}

我喜欢语法,showData2但知道调用Async.RunSynchronously绑定了调用线程.

是否在某处定义了语法,运算符或函数,允许我将其Async<'T>输入到接受的函数中'T？

Answer 1

这听起来像你想要map的Async:

let mapAsync f a = async { 
    let! v = a
    return (f v)
}

然后你可以这样做:

let m: Async<unit> = getData() |> mapAsync (Seq.iter (printfn "%A"))