Mercurial > feed
view tests/mr.ur @ 15:0140b1662994
Update URL used in RSS test
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 02 Aug 2011 16:20:14 -0400 |
parents | a4e5d053daed |
children |
line wrap: on
line source
fun main () = doc <- Feed.fetch "http://feeds.feedburner.com/marginalrevolution/feed"; Feed.app (Feed.children (Feed.tagA "item" ()) (Feed.tagC "link", Feed.tagC "title", Feed.tagC "content:encoded")) (fn ((), (link, title, content)) => error <xml/>; debug ("URL: " ^ link); debug ("Title: " ^ title); debug ("Content: " ^ content)) doc; return <xml> See stdout. </xml>