table t : { A : int, B : float, C : string, D : bool }
fun list () =
rows <- queryX (SELECT * FROM t)
(fn row =>
| {[row.T.A]} | {[row.T.B]} | {[row.T.C]} | {[row.T.D]} |
[delete] |
);
return
and add r =
() <- dml (INSERT INTO t (A, B, C, D)
VALUES ({readError r.A}, {readError r.B}, {r.C}, {r.D}));
xml <- list ();
return
Row added.
{xml}
and delete a =
() <- dml (DELETE FROM t
WHERE t.A = {a});
xml <- list ();
return
Row deleted.
{xml}
fun main () =
xml <- list ();
return
{xml}