diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-05-03 12:24:39 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-03 12:24:39 -0400 |
commit | d8de44ce7c70fc8ce462e764223e413a9a6ea6b6 (patch) | |
tree | bbd4fa663e5c412c295510f3cc6c75afa5191e48 /demo/url.ur | |
parent | ebbae2ae752fe3b0774207920c7510853ffcbdcf (diff) |
url demo
Diffstat (limited to 'demo/url.ur')
-rw-r--r-- | demo/url.ur | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/demo/url.ur b/demo/url.ur new file mode 100644 index 00000000..48d1bdc3 --- /dev/null +++ b/demo/url.ur @@ -0,0 +1,13 @@ +fun yourChoice r = return <xml><body> + {case checkUrl r.Url of + None => <xml>You aren't allowed to link to there.</xml> + | Some url => <xml><a href={url}>Enjoy!</a></xml>} +</body></xml> + +fun main () = return <xml><body> + <a href="http://en.wikipedia.org/wiki/Type_inference">Learn something</a><br/> + <br/> + <form> + URL of your choice: <textbox{#Url}/> <submit action={yourChoice}/> + </form> +</body></xml> |