annotate tests/mr.ur @ 8:a4e5d053daed

Preparation for first release
author Adam Chlipala <adam@chlipala.net>
date Sat, 19 Mar 2011 14:35:11 -0400
parents ea0ca570c121
children 0140b1662994
rev   line source
adam@0 1 fun main () =
adam@8 2 doc <- Feed.fetch "http://marginalrevolution.com/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@8 8 debug ("URL: " ^ link);
adam@8 9 debug ("Title: " ^ title);
adam@8 10 debug ("Content: " ^ content))
adam@8 11 doc;
adam@0 12 return <xml>
adam@1 13 See stdout.
adam@0 14 </xml>