4 module Network.HTTP.Lucu.Chunk
10 import Control.Applicative
11 import Data.Attoparsec.Char8
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 ()
32 {-# INLINE chunkFooter #-}
35 chunkTrailer ∷ Parser Headers
36 {-# INLINE chunkTrailer #-}