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 {rows}
A B C D



A:
B:
C:
D:
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}