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