Mercurial > openid

annotate 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
rev   line source
adam@4 1 fun auth r =
adam@4 2 msg <- Openid.authenticate r.Id;
adam@4 3 error <xml>{[msg]}</xml>
adam@1 4
adam@1 5 fun main () = return <xml><body>
adam@1 6 <form>
adam@1 7 <textbox{#Id}/>
adam@4 8 <submit action={auth}/>
adam@1 9 </form>
adam@1 10 </body></xml>