From 48b9d4dae3d1ca6ff39e71571a6db3a43497c9f9 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 11 Sep 2008 17:41:52 -0400 Subject: Crud listing IDs --- tests/crud.ur | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 tests/crud.ur (limited to 'tests/crud.ur') diff --git a/tests/crud.ur b/tests/crud.ur new file mode 100644 index 00000000..101b1ba4 --- /dev/null +++ b/tests/crud.ur @@ -0,0 +1,40 @@ +functor Make(M : sig + con cols :: {Type} + constraint [Id] ~ cols + val tab : sql_table ([Id = int] ++ cols) + + val title : string + + val cols : $(mapTT (fn t => {Show : t -> xbody}) cols) +end) = struct + +open constraints M +val tab = M.tab + +fun list () = + rows <- query (SELECT * FROM tab AS T) + (fn fs acc => return + {acc} {txt _ fs.T.Id} + ) ; + return + List + + + +

List

+ + + + {rows} +

ID

+ + +fun main () : transaction page = return + {cdata M.title} + +

{cdata M.title}

+ +

List all rows

+ + +end -- cgit v1.2.3