annotate tests/mr.ur @ 17:c3fe7f5e50b8

Check in aclocal.m4
author Adam Chlipala <adam@chlipala.net>
date Wed, 26 Oct 2011 09:11:22 -0400
parents 0140b1662994
children
rev   line source
adam@0 1 fun main () =
adam@15 2 doc <- Feed.fetch "http://feeds.feedburner.com/marginalrevolution/feed";
adam@8 3
adam@1 4 Feed.app (Feed.children
adam@8 5 (Feed.tagA "item" ())
adam@8 6 (Feed.tagC "link", Feed.tagC "title", Feed.tagC "content:encoded"))
adam@8 7 (fn ((), (link, title, content)) =>
adam@15 8 error <xml/>;
adam@8 9 debug ("URL: " ^ link);
adam@8 10 debug ("Title: " ^ title);
adam@8 11 debug ("Content: " ^ content))
adam@8 12 doc;
adam@0 13 return <xml>
adam@1 14 See stdout.
adam@0 15 </xml>