Ur/Web: tests/checkbox.lac annotate

Shorthand for multi-binding con 'fn'

author	Adam Chlipala <adamc@hcoop.net>
date	Thu, 28 Aug 2008 13:29:57 -0400
parents	3eb53c957d10
children

rev	line source
adamc@190	1 val handler = fn x => <html><body>
adamc@190	2 {if x.A then cdata "Yes" else cdata "No"}
adamc@190	3 </body></html>
adamc@190	4
adamc@190	5 val main = fn () => <html><body>
adamc@190	6 <lform>
adamc@190	7 <checkbox{#A}/> How about it?<br/>
adamc@190	8 <submit action={handler}/>
adamc@190	9 </lform>
adamc@190	10 </body></html>

Mercurial > urweb