2 module Network.HTTP.Lucu.Chunk
3 ( chunkHeaderP -- Num a => Parser a
4 , chunkFooterP -- Parser ()
5 , chunkTrailerP -- Parser Headers
9 import Network.HTTP.Lucu.Headers
10 import Network.HTTP.Lucu.Parser
11 import Network.HTTP.Lucu.Parser.Http
15 chunkHeaderP :: Num a => Parser a
16 chunkHeaderP = do hexLen <- many1 hexDigit
20 let [(len, _)] = readHex hexLen
23 extension :: Parser ()
24 extension = do many $ do char ';'
31 chunkFooterP :: Parser ()
32 chunkFooterP = crlf >> return ()
35 chunkTrailerP :: Parser Headers
36 chunkTrailerP = headersP