1 files changed, 13 insertions, 0 deletions
diff --git a/demo/url.ur b/demo/url.ur
new file mode 100644
index 0000000..48d1bdc
--- /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>