ziv@2202: table foo : {Id : int, Bar : string} PRIMARY KEY Id ziv@2202: ziv@2202: (* val query = (SELECT * FROM foo WHERE foo.Bar = "baz") *) ziv@2202: (* val insert = (INSERT INTO foo (Id, Bar) VALUES (42, "baz")) *) ziv@2202: ziv@2202: fun main () : transaction page = ziv@2202: dml (INSERT INTO foo (Id, Bar) VALUES (42, "baz")); ziv@2202: res <- oneOrNoRows (SELECT foo.Id, foo.Bar ziv@2202: FROM foo ziv@2202: WHERE foo.Bar = "baz" ziv@2202: UNION ziv@2202: SELECT * ziv@2202: FROM foo ziv@2202: WHERE foo.Bar = "qux"); ziv@2202: return ziv@2202: ziv@2202: ziv@2202: {case res of ziv@2202: None => ziv@2202: | Some row => {[row.Foo.Bar]}} ziv@2202: ziv@2202: