Mercurial > urweb

diff tests/query.ur @ 748:5f9b9972e6b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Switch to using sql_from_items
author Adam Chlipala <adamc@hcoop.net>
date Tue, 28 Apr 2009 09:45:17 -0400
parents f8d9395575ec
children
line wrap: on
line diff
--- a/tests/query.ur	Sun Apr 26 12:47:53 2009 -0400
+++ b/tests/query.ur	Tue Apr 28 09:45:17 2009 -0400
@@ -6,18 +6,18 @@
 val q1 = (SELECT * FROM t1)
 
 val r1 : transaction (list {A : int, B : string, C : float, D : bool}) =
-        query q1
-        (fn fs acc => return (Cons (fs.T1, acc)))
-        Nil
+    query q1
+          (fn fs acc => return (Cons (fs.T1, acc)))
+          Nil
 
 val r2 : transaction string =
-        ls <- r1;
-        return (case ls of
-                    Nil => "Problem"
-                  | Cons ({B = b, ...}, _) => b)
+    ls <- r1;
+    return (case ls of
+                Nil => "Problem"
+              | Cons ({B = b, ...}, _) => b)
 
-val main : unit -> transaction page = fn () =>
-        s <- r2;
-        return <html><body>
-                {cdata s}
-        </body></html>
+fun main () : transaction page =
+    s <- r2;
+    return <xml><body>
+      {cdata s}
+    </body></xml>