adam@4: fun auth r = adam@4: msg <- Openid.authenticate r.Id; adam@4: error {[msg]} adam@1: adam@1: fun main () = return adam@1:
adam@1: adam@4: adam@1: adam@1: