asynchronous - 'Async' 类型与 'seq<' 类型不兼容 a>'

Question

我有一个 mySources变量，seq<Async <string []>> .我的目标是将序列展平并将序列中的所有元素连接到一个 Async<string []> 中。

我正在使用 Seq.collect方法。
let myJoinedAsyncs = Seq.collect (fun elems -> elems) mySources
但是这一行在 mySource 上给了我一个错误，表明:

'Async' 类型与类型 'seq<'a>' 不兼容

有任何想法吗？
谢谢!

Answer 1

您可以使用 Async.Parallel收集内部值并连接结果序列:

let flattenAsync (asyncs : seq<Async<'a []>>) = async {
    let! ss = Async.Parallel asyncs
    return Array.concat ss
}