summaryrefslogtreecommitdiff
path: root/demo/sql.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-06 19:43:48 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-06 19:43:48 -0500
commit24b68e6d7408f50023272e765687eab777596363 (patch)
tree36109508292ec57f01529ab31699ed8837d3f0c8 /demo/sql.ur
parentdd4d718ac9f0a9862ebef19beb568bbedcc85848 (diff)
Tree demo working (and other assorted regressions fixed)
Diffstat (limited to 'demo/sql.ur')
-rw-r--r--demo/sql.ur4
1 files changed, 2 insertions, 2 deletions
diff --git a/demo/sql.ur b/demo/sql.ur
index 43a69573..44ff478f 100644
--- a/demo/sql.ur
+++ b/demo/sql.ur
@@ -27,7 +27,7 @@ fun list () =
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 add r =
and delete a =
dml (DELETE FROM t
- WHERE t.A = {a});
+ WHERE t.A = {[a]});
xml <- list ();
return <xml><body>
<p>Row deleted.</p>