blob: ea236502b8e4702349a1be108958c9ed8dc1b0a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
fun readersChoice r = return <xml><body>
{case checkUrl r.Url of
None => <xml>I can't do that, Dave.</xml>
| Some url => <xml><a href={url}>Your pick, boss</a></xml>}
</body></xml>
fun main () : transaction page = return <xml><body>
<a href="http://en.wikipedia.org/wiki/Wikipedia:About">Learn</a>
<br/>
<form><textbox{#Url}/> <submit action={readersChoice}/></form>
</body></xml>
|
