Mercurial > openid

annotate src/ur/openid.ur @ 2:b757dc2bd2f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Discovery returns a record
author Adam Chlipala <adam@chlipala.net>
date Sun, 26 Dec 2010 13:28:06 -0500
parents c230e6da3ff6
children f59083771ee2
rev   line source
adam@0 1 task initialize = fn () => OpenidFfi.init
adam@1 2
adam@2 3 fun discover s =
adam@2 4 r <- OpenidFfi.discover s;
adam@2 5 return (Option.mp (fn r => {Endpoint = OpenidFfi.endpoint r,
adam@2 6 LocalId = OpenidFfi.localId r}) r)