OverloadedStrings
, UnicodeSyntax
#-}
-{-# OPTIONS_HADDOCK prune #-}
-- |Manipulation of WWW authorization.
module Network.HTTP.Lucu.Authorization
, Password
, printAuthChallenge
- , authCredentialP -- private
+ , authCredentialP
)
where
import Data.Ascii (Ascii)
-- \"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