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))