Mercurial > openid

view tests/test.ur @ 7:976121190b2d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Authentication verification almost working: signatures not computing correctly
author Adam Chlipala <adam@chlipala.net>
date Tue, 28 Dec 2010 19:57:25 -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>