-- \"WWW-Authenticate\" header. See
-- 'Network.HTTP.Lucu.Resource.setWWWAuthenticate'.
data AuthChallenge
- = BasicAuthChallenge Realm
+ = BasicAuthChallenge !Realm
deriving (Eq)
-- |'Realm' is just a string which must not contain any non-ASCII letters.
-- \"Authorization\" header. See
-- 'Network.HTTP.Lucu.Resource.getAuthorization'.
data AuthCredential
- = BasicAuthCredential UserID Password
+ = BasicAuthCredential !UserID !Password
deriving (Show, Eq)
-- |'UserID' is just a string which must not contain colon and any