diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-06 19:43:48 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 19:43:48 -0500 |
| commit | 50e456effc2cad22d6a61e08887816096c427658 (patch) | |
| tree | 36109508292ec57f01529ab31699ed8837d3f0c8 /demo/sql.ur | |
| parent | 3af6c283c504e7e85d9e127f64a5eb72abe583ee (diff) | |
Tree demo working (and other assorted regressions fixed)
Diffstat (limited to 'demo/sql.ur')
| -rw-r--r-- | demo/sql.ur | 4 |
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> |