fun auth r = msg <- Openid.authenticate Openid.HMAC_SHA256 Openid.NoEncryption r.Id; error {[msg]} fun main () = return