Mercurial > urweb

diff demo/sql.ur @ 471:20fab0e96217

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tree demo working (and other assorted regressions fixed)
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Nov 2008 19:43:48 -0500
parents c471345f5165
children 1a317a707d71
line wrap: on
line diff
--- a/demo/sql.ur	Thu Nov 06 18:49:38 2008 -0500
+++ b/demo/sql.ur	Thu Nov 06 19:43:48 2008 -0500
@@ -27,7 +27,7 @@
 
 and add r =
     dml (INSERT INTO t (A, B, C, D)
-         VALUES ({readError r.A}, {readError r.B}, {r.C}, {r.D}));
+         VALUES ({[readError r.A]}, {[readError r.B]}, {[r.C]}, {[r.D]}));
     xml <- list ();
     return <xml><body>
       <p>Row added.</p>
@@ -37,7 +37,7 @@
 
 and delete a =
     dml (DELETE FROM t
-         WHERE t.A = {a});
+         WHERE t.A = {[a]});
     xml <- list ();
     return <xml><body>
       <p>Row deleted.</p>