X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FChunk.hs;h=c2135ef1105ae96e85f0f39db1a32240b7ee5929;hp=101ed7436c9b281db152af0ad542137335aef7c0;hb=90fca0675b1694e69b8e431c989343855cbd125d;hpb=742b0cae221f12eafbf1379b91c473b059efa7d8

diff --git a/Network/HTTP/Lucu/Chunk.hs b/Network/HTTP/Lucu/Chunk.hs
index 101ed74..c2135ef 100644
--- a/Network/HTTP/Lucu/Chunk.hs
+++ b/Network/HTTP/Lucu/Chunk.hs
@@ -9,8 +9,8 @@ module Network.HTTP.Lucu.Chunk
     where
 import Control.Applicative
 import Data.Attoparsec.Char8
-import Data.Attoparsec.Parsable
 import Data.Bits
+import Data.Default
 import Network.HTTP.Lucu.Headers
 import Network.HTTP.Lucu.Parser.Http
 
@@ -29,7 +29,9 @@ chunkHeader = do len ← hexadecimal
                        (token <|> quotedStr) )
 
 chunkFooter ∷ Parser ()
+{-# INLINE chunkFooter #-}
 chunkFooter = crlf
 
 chunkTrailer ∷ Parser Headers
-chunkTrailer = parser
+{-# INLINE chunkTrailer #-}
+chunkTrailer = def