Mercurial > feed

view tests/mr.ur @ 20:dd5b333a7960

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Regenerate Autotools files myself with Ron's patch
author Adam Chlipala <adam@chlipala.net>
date Sat, 23 Jun 2012 09:58:31 -0400
parents 0140b1662994
children
line wrap: on
line source
fun main () =
    doc <- Feed.fetch "http://feeds.feedburner.com/marginalrevolution/feed";

    Feed.app (Feed.children
                  (Feed.tagA "item" ())
                  (Feed.tagC "link", Feed.tagC "title", Feed.tagC "content:encoded"))
             (fn ((), (link, title, content)) =>
                 error <xml/>;
                 debug ("URL: " ^ link);
                 debug ("Title: " ^ title);
                 debug ("Content: " ^ content))
             doc;
    return <xml>
      See stdout.
    </xml>