view tests/mr.ur @ 6:e0bae488825c

'O' versions of tagA and children
author Adam Chlipala <adam@chlipala.net>
date Sat, 15 Jan 2011 15:25:22 -0500
parents ea0ca570c121
children a4e5d053daed
line wrap: on
line source
fun main () =
    Feed.app (Feed.children
                  (Feed.tagA "item" {1 = "rdf:about"})
                  (Feed.tagC "title", Feed.tagC "content:encoded"))
             (fn (item, props) =>
                 debug ("URL: " ^ item.1);
                 debug ("Title: " ^ props.1);
                 debug ("Content: " ^ props.2))
             "http://feeds.feedburner.com/marginalrevolution/hCQh";
    return <xml>
      See stdout.
    </xml>