blob: 708c9b03e038ae25a062b6c5142168333aeef6d5 (
plain)
1
2
3
4
5
6
7
8
9
10
|
val handler = fn x => <html><body>
You entered: {cdata x.A}
</body></html>
val main = fn () => <html><body>
<lform>
<ltextarea{#A}/>
<submit action={handler}/>
</lform>
</body></html>
|