Mercurial > feed
annotate tests/mr.ur @ 3:ea0ca570c121
Shortcut tag combinators
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 11 Jan 2011 14:19:51 -0500 |
parents | 8de269c09617 |
children | a4e5d053daed |
rev | line source |
---|---|
adam@0 | 1 fun main () = |
adam@1 | 2 Feed.app (Feed.children |
adam@3 | 3 (Feed.tagA "item" {1 = "rdf:about"}) |
adam@3 | 4 (Feed.tagC "title", Feed.tagC "content:encoded")) |
adam@3 | 5 (fn (item, props) => |
adam@3 | 6 debug ("URL: " ^ item.1); |
adam@3 | 7 debug ("Title: " ^ props.1); |
adam@3 | 8 debug ("Content: " ^ props.2)) |
adam@1 | 9 "http://feeds.feedburner.com/marginalrevolution/hCQh"; |
adam@0 | 10 return <xml> |
adam@1 | 11 See stdout. |
adam@0 | 12 </xml> |