Mercurial > openid

view tests/test.ur @ 4:2d409aff8800

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Received an OpenID authentication response, but haven't checked it yet
author Adam Chlipala <adam@chlipala.net>
date Sun, 26 Dec 2010 17:19:52 -0500
parents f59083771ee2
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>