Mercurial > feed
changeset 15:0140b1662994
Update URL used in RSS test
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 02 Aug 2011 16:20:14 -0400 |
parents | f641cfcd5153 |
children | a2bf0a93c357 |
files | tests/mr.ur |
diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/tests/mr.ur Mon Jul 25 20:55:09 2011 -0430 +++ b/tests/mr.ur Tue Aug 02 16:20:14 2011 -0400 @@ -1,10 +1,11 @@ fun main () = - doc <- Feed.fetch "http://marginalrevolution.com/feed"; + 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))