summaryrefslogtreecommitdiff
path: root/demo/batchG.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/batchG.ur')
-rw-r--r--demo/batchG.ur16
1 files changed, 6 insertions, 10 deletions
diff --git a/demo/batchG.ur b/demo/batchG.ur
index ea658164..d0071d7d 100644
--- a/demo/batchG.ur
+++ b/demo/batchG.ur
@@ -1,13 +1,9 @@
table t : {Id : int, A : string, B : float}
PRIMARY KEY Id
-structure B = BatchFun.Make(struct
- val tab = t
- val title = "BatchG"
- val cols = {A = BatchFun.string "A",
- B = BatchFun.float "B"}
- end)
-
-fun main () = return <xml><body>
- <form><submit value="Begin demo" action={B.main}/></form>
-</body></xml>
+open BatchFun.Make(struct
+ val tab = t
+ val title = "BatchG"
+ val cols = {A = BatchFun.string "A",
+ B = BatchFun.float "B"}
+ end)