blob: e44eb0b7d54df4a428294d2b4118becff2d40d3e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
fun handler x = return <xml><body>
You entered: {[case x.A of
None => "nothing at all"
| Some v => v]}
</body></xml>
fun main () = return <xml><body>
<form>
<radio{#A}>
<li><radioOption value="A"/>A</li>
<li><radioOption value="B"/>B</li>
</radio>
<submit action={handler}/>
</form>
</body></xml>
|
