OverloadedStrings
, UnicodeSyntax
#-}
-{-# OPTIONS_HADDOCK prune #-}
-- |Manipulation of WWW authorization.
module Network.HTTP.Lucu.Authorization
, Password
, printAuthChallenge
- , authCredentialP -- private
+ , authCredentialP
)
where
import Data.Ascii (Ascii)
authCredentialP ∷ Parser AuthCredential
authCredentialP
- = try $
- do _ ← string "Basic"
+ = do _ ← string "Basic"
skipMany1 lws
b64 ← takeWhile1 base64
case C8.break (≡ ':') (B64.decodeLenient b64) of