Mercurial > feed

diff tests/mr.ur @ 8:a4e5d053daed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Preparation for first release
author Adam Chlipala <adam@chlipala.net>
date Sat, 19 Mar 2011 14:35:11 -0400
parents ea0ca570c121
children 0140b1662994
line wrap: on
line diff
--- a/tests/mr.ur	Thu Mar 10 18:36:50 2011 -0500
+++ b/tests/mr.ur	Sat Mar 19 14:35:11 2011 -0400
@@ -1,12 +1,14 @@
 fun main () =
+    doc <- Feed.fetch "http://marginalrevolution.com/feed";
+
     Feed.app (Feed.children
-                  (Feed.tagA "item" {1 = "rdf:about"})
-                  (Feed.tagC "title", Feed.tagC "content:encoded"))
-             (fn (item, props) =>
-                 debug ("URL: " ^ item.1);
-                 debug ("Title: " ^ props.1);
-                 debug ("Content: " ^ props.2))
-             "http://feeds.feedburner.com/marginalrevolution/hCQh";
+                  (Feed.tagA "item" ())
+                  (Feed.tagC "link", Feed.tagC "title", Feed.tagC "content:encoded"))
+             (fn ((), (link, title, content)) =>
+                 debug ("URL: " ^ link);
+                 debug ("Title: " ^ title);
+                 debug ("Content: " ^ content))
+             doc;
     return <xml>
       See stdout.
     </xml>