Объединение асинхронных функций F #

Question

Я немного расстроен здесь.Я знаю, что у меня есть все биты, но я не могу понять, как их объединить ...

let saveImageToDisk path content =
    async {
        use s = new FileStream(path, FileMode.OpenOrCreate)
        do! s.AsyncWrite(content)
        printfn "Done writing %A" path
        } // returns Async<unit>

let getImages imageUrls =
    imageUrls
        |> Seq.map (fun url -> topath url, getImage url)
        //Next line not happy because content is Async<byte[]> instead of byte[]
        |> Seq.map (fun (path, content) -> saveImageToDisk path content)
        |> Async.Parallel
        |> Async.RunSynchronously

Answer 1

Вы можете объединить их, используя выражение async:

let getImages imageUrls =
    imageUrls
        |> Seq.map (fun url -> async {
              let! content = getImage url
              return! saveImageToDisk (topath url) content })
        |> Async.Parallel
        |> Async.RunSynchronously