Back to Questions
1.3k
views2
comments
How to iterate over Async<Seq<'a>>?
f#async

I wrote a following function:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

type MyNodes = {Title : string; Text : string }
let getXmlDoc (url:string) =
  async { ..
             ..
             let! xml = stream.AsyncReadToEnd()
             let xmlDoc = XDocument.Parse xml
             return xmlDoc.Root.Descendants()
               |>  Seq.choose(fun node -> 
                       if(node ..  <> null) then
                         ...
                         Some {Title = title; ... }
                       else
                         None)
           }

and when I call a function I get Async<seq<'a>> structure. Now I need to iterate over this structure and print the values but I don't know how.
Any advice will help.

.

Hi, dependng on the context you want to process your sequence in, you may use for instance

1
2
3
4
5
6
7
8
9
10
11

let run url =
  let mySeq = getXmlDoc url |> Async.RunSynchronously
  for node in mySeq do
    printfn "%A" node

let asyncRun url =
  async
    { let! mySeq = getXmlDoc url 
      for node in mySeq do
        printfn "%A" node
    }

Hope this helps

By on 6/9/2009 10:54 PM ()

Thank you Julien. It helped.

By on 6/10/2009 12:18 AM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper