4 module Network.HTTP.Lucu.Chunk
10 import Control.Applicative
11 import Data.Attoparsec.Char8
13 import Network.HTTP.Lucu.Headers
14 import Network.HTTP.Lucu.Parser.Http
16 chunkHeaderP ∷ (Integral a, Bits a) ⇒ Parser a
17 {-# INLINEABLE chunkHeaderP #-}
18 chunkHeaderP = do len ← hexadecimal
24 extension = skipMany $
28 _ ← token <|> quotedStr
31 chunkFooterP ∷ Parser ()
34 chunkTrailerP ∷ Parser Headers
35 chunkTrailerP = headersP