adam@1: fun discover r = adam@1: code <- Openid.discover r.Id; adam@1: return adam@1: Code: {[code]} adam@1: adam@1: adam@1: fun main () = return adam@1:
adam@1: adam@1: adam@1: adam@1: