UnicodeSyntax
#-}
module Network.HTTP.Lucu.Chunk
- ( chunkHeaderP -- Num a => Parser a
- , chunkFooterP -- Parser ()
- , chunkTrailerP -- Parser Headers
+ ( chunkHeaderP
+ , chunkFooterP
+ , chunkTrailerP
)
where
import Control.Applicative
return len
where
extension ∷ Parser ()
- extension = skipMany $
- do _ ← char ';'
- _ ← token
- _ ← char '='
- _ ← token <|> quotedStr
- return ()
+ extension
+ = skipMany ( char ';' *>
+ token *>
+ char '=' *>
+ (token <|> quotedStr) )
chunkFooterP ∷ Parser ()
chunkFooterP = crlf