Ur/Web: demo/batchG.ur annotate

Add more buttons to demo, to avoid effectful GET

author	Adam Chlipala <adamc@hcoop.net>
date	Thu, 16 Apr 2009 15:38:01 -0400
parents	1a317a707d71
children	a44daa674810

rev	line source
adamc@650	1 table t : {Id : int, A : string, B : float}
adamc@708	2 PRIMARY KEY Id
adamc@650	3
adamc@733	4 structure B = BatchFun.Make(struct
adamc@733	5 val tab = t
adamc@733	6 val title = "BatchG"
adamc@733	7 val cols = {A = BatchFun.string "A",
adamc@733	8 B = BatchFun.float "B"}
adamc@733	9 end)
adamc@733	10
adamc@733	11 fun main () = return <xml><body>
adamc@733	12 <form><submit value="Begin demo" action={B.main}/></form>
adamc@733	13 </body></xml>

Mercurial > urweb