Mercurial > openid

view tests/test.ur @ 5:443f27cd1572

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Detecting cancellation
author Adam Chlipala <adam@chlipala.net>
date Sun, 26 Dec 2010 17:36:07 -0500
parents 2d409aff8800
children 870d99055dd1
line wrap: on
line source
fun auth r =
    msg <- Openid.authenticate r.Id;
    error <xml>{[msg]}</xml>

fun main () = return <xml><body>
  <form>
    <textbox{#Id}/>
    <submit action={auth}/>
  </form>
</body></xml>