Mercurial > openid

comparison tests/test.ur @ 1:c230e6da3ff6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Discovered LiveJournal endpoint
author Adam Chlipala <adam@chlipala.net>
date Sun, 26 Dec 2010 13:10:36 -0500
parents 3c209338e596
children b757dc2bd2f6
comparison
equal deleted inserted replaced
0:3c209338e596 1:c230e6da3ff6
1 fun main () = return <xml/> 1 fun discover r =
2 code <- Openid.discover r.Id;
3 return <xml><body>
4 Code: {[code]}
5 </body></xml>
6
7 fun main () = return <xml><body>
8 <form>
9 <textbox{#Id}/>
10 <submit action={discover}/>
11 </form>
12 </body></xml>