blob: 2260267ab246548c72495e0ed7104378bc52d1a7 (
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> Password: {cdata r.Word}</li>
</body></html>
val main : unit -> page = fn () => <html><body>
<lform>
Name: <textbox{#Nam} /><br/>
Password: <password{#Word} /><br/>
<submit action={handler}/>
</lform>
</body></html>
|
