Mercurial > urweb

view tests/url.ur @ 2191:849404a3af27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change behavior of SQL equality to do the intuitive thing for nullable types
author Adam Chlipala <adam@chlipala.net>
date Sun, 01 Nov 2015 17:02:16 -0500
parents c125df6fabfc
children
line wrap: on
line source
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>