Destroy Data.Attoparsec.Parsable; use Data.Default instead

[Lucu.git] / Network / HTTP / Lucu / Chunk.hs

diff --git a/Network/HTTP/Lucu/Chunk.hs b/Network/HTTP/Lucu/Chunk.hs
index e8c9de41286c4fb3240425843acc67c52e565db5..c2135ef1105ae96e85f0f39db1a32240b7ee5929 100644 (file)
--- a/Network/HTTP/Lucu/Chunk.hs
+++ b/Network/HTTP/Lucu/Chunk.hs
@@ -10,6 +10,7 @@ module Network.HTTP.Lucu.Chunk
 import Control.Applicative
 import Data.Attoparsec.Char8
 import Data.Bits
+import Data.Default
 import Network.HTTP.Lucu.Headers
 import Network.HTTP.Lucu.Parser.Http
 
@@ -28,7 +29,9 @@ chunkHeader = do len ← hexadecimal
                        (token <|> quotedStr) )
 
 chunkFooter ∷ Parser ()
+{-# INLINE chunkFooter #-}
 chunkFooter = crlf
 
 chunkTrailer ∷ Parser Headers
-chunkTrailer = headers
+{-# INLINE chunkTrailer #-}
+chunkTrailer = def