Mercurial > urweb

view demo/url.ur @ 1344:660a2715e2bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clarify that you aren't supposed to be able to create new XML tags
author Adam Chlipala <adam@chlipala.net>
date Thu, 16 Dec 2010 10:23:37 -0500
parents 412ccd97ab71
children
line wrap: on
line source
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>