4 module Network.HTTP.Lucu.Chunk
10 import Control.Applicative
11 import Data.Attoparsec.Char8
12 import Data.Attoparsec.Parsable
14 import Network.HTTP.Lucu.Headers
15 import Network.HTTP.Lucu.Parser.Http
17 chunkHeader ∷ (Integral a, Bits a) ⇒ Parser a
18 {-# INLINEABLE chunkHeader #-}
19 chunkHeader = do len ← hexadecimal
26 = skipMany ( char ';' *>
29 (token <|> quotedStr) )
31 chunkFooter ∷ Parser ()
34 chunkTrailer ∷ Parser Headers