annotate tests/mr.ur @ 7:05a28a77f6fe
'show' instance for 'document'
| author |
Adam Chlipala <adam@chlipala.net> |
| date |
Thu, 10 Mar 2011 18:36:50 -0500 |
| parents |
ea0ca570c121 |
| 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>
|
