Mercurial > feed

comparison tests/mr.ur @ 8:a4e5d053daed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Preparation for first release
author Adam Chlipala <adam@chlipala.net>
date Sat, 19 Mar 2011 14:35:11 -0400
parents ea0ca570c121
children 0140b1662994
comparison
equal deleted inserted replaced
7:05a28a77f6fe 8:a4e5d053daed
1 fun main () = 1 fun main () =
2 doc <- Feed.fetch "http://marginalrevolution.com/feed";
3
2 Feed.app (Feed.children 4 Feed.app (Feed.children
3 (Feed.tagA "item" {1 = "rdf:about"}) 5 (Feed.tagA "item" ())
4 (Feed.tagC "title", Feed.tagC "content:encoded")) 6 (Feed.tagC "link", Feed.tagC "title", Feed.tagC "content:encoded"))
5 (fn (item, props) => 7 (fn ((), (link, title, content)) =>
6 debug ("URL: " ^ item.1); 8 debug ("URL: " ^ link);
7 debug ("Title: " ^ props.1); 9 debug ("Title: " ^ title);
8 debug ("Content: " ^ props.2)) 10 debug ("Content: " ^ content))
9 "http://feeds.feedburner.com/marginalrevolution/hCQh"; 11 doc;
10 return <xml> 12 return <xml>
11 See stdout. 13 See stdout.
12 </xml> 14 </xml>