OverloadedStrings
, UnicodeSyntax
#-}
--- |HTTP Authentication
+-- |An internal module for HTTP authentication.
module Network.HTTP.Lucu.Authentication
( AuthChallenge(..)
, AuthCredential(..)
, Password
, printAuthChallenge
- , authCredentialP
+ , authCredential
)
where
import Control.Monad
A.toAsciiBuilder "Basic realm=" ⊕ quoteStr realm
-- |'Parser' for an 'AuthCredential'.
-authCredentialP ∷ Parser AuthCredential
-authCredentialP
+authCredential ∷ Parser AuthCredential
+authCredential
= do void $ string "Basic"
skipMany1 lws
b64 ← takeWhile1 base64