UnicodeSyntax
#-}
module Network.HTTP.Lucu.Chunk
- ( chunkHeaderP
- , chunkFooterP
- , chunkTrailerP
+ ( chunkHeader
+ , chunkFooter
+ , chunkTrailer
)
where
import Control.Applicative
import Data.Attoparsec.Char8
import Data.Bits
+import Data.Default
import Network.HTTP.Lucu.Headers
import Network.HTTP.Lucu.Parser.Http
-chunkHeaderP ∷ (Integral a, Bits a) ⇒ Parser a
-{-# INLINEABLE chunkHeaderP #-}
-chunkHeaderP = do len ← hexadecimal
- extension
- crlf
- return len
+chunkHeader ∷ (Integral a, Bits a) ⇒ Parser a
+{-# INLINEABLE chunkHeader #-}
+chunkHeader = do len ← hexadecimal
+ extension
+ crlf
+ return len
where
extension ∷ Parser ()
extension
char '=' *>
(token <|> quotedStr) )
-chunkFooterP ∷ Parser ()
-chunkFooterP = crlf
+chunkFooter ∷ Parser ()
+{-# INLINE chunkFooter #-}
+chunkFooter = crlf
-chunkTrailerP ∷ Parser Headers
-chunkTrailerP = headersP
+chunkTrailer ∷ Parser Headers
+{-# INLINE chunkTrailer #-}
+chunkTrailer = def