Mercurial > openid
diff tests/test.ur @ 15:35bc4da563dd
Realms; documentation and license
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 02 Jan 2011 11:22:30 -0500 |
parents | de04a3fc6b72 |
children | f6b3fbf10dac |
line wrap: on
line diff
--- a/tests/test.ur Sun Jan 02 10:33:07 2011 -0500 +++ b/tests/test.ur Sun Jan 02 11:22:30 2011 -0500 @@ -7,9 +7,10 @@ fun auth r = msg <- Openid.authenticate afterward - {Association = Openid.Stateless (* Openid.Stateful {AssociationType = Openid.HMAC_SHA256, - AssociationSessionType = Openid.NoEncryption} *), - Identifier = r.Id}; + {Association = Openid.Stateful {AssociationType = Openid.HMAC_SHA256, + AssociationSessionType = Openid.NoEncryption}, + Identifier = r.Id, + Realm = Some "http://localhost:8080/"}; error <xml>{[msg]}</xml> fun main () = return <xml><body>