durable-fsharp-workflow-nocomments.fs

let workflow wishlist = async {
    let! matches = 
        wishlist.Wishes
        |> List.map findMatchingGift
        |> Async.Parallel

    let gift = pickGift (List.concat matches)
    
    let reservation = { Kid = wishlist.Kid; Product = gift }
    do! reserve reservation
    return reservation
}