blob: a046928ae2aace6892a03c65603f707644a00df2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
val handler = fn r => <html><body>
<li> Name: {cdata r.Nam}</li>
<li> Word: {cdata r.Word}</li>
</body></html>
val main : unit -> page = fn () => <html><body>
<lform>
Name: <textbox{#Nam} /><br/>
Word: <textbox{#Word} /><br/>
<submit action={handler}/>
</lform>
</body></html>
|
