Mercurial > openid
comparison src/ur/openid.ur @ 2:b757dc2bd2f6
Discovery returns a record
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 26 Dec 2010 13:28:06 -0500 |
parents | c230e6da3ff6 |
children | f59083771ee2 |
comparison
equal
deleted
inserted
replaced
1:c230e6da3ff6 | 2:b757dc2bd2f6 |
---|---|
1 task initialize = fn () => OpenidFfi.init | 1 task initialize = fn () => OpenidFfi.init |
2 | 2 |
3 val discover = OpenidFfi.discover | 3 fun discover s = |
4 r <- OpenidFfi.discover s; | |
5 return (Option.mp (fn r => {Endpoint = OpenidFfi.endpoint r, | |
6 LocalId = OpenidFfi.localId r}) r) |