X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FChunk.hs;fp=Network%2FHTTP%2FLucu%2FChunk.hs;h=9ad41f86786c0cdf15aed8c03717426356a88d1a;hp=44f2ae4c16890bc3df3b4064938c378335d2af9c;hb=858129cb755aa09da2b7bd758efb8519f2c89103;hpb=5b255535f2c7d2a6d4622ad164b31e63746b906e

diff --git a/Network/HTTP/Lucu/Chunk.hs b/Network/HTTP/Lucu/Chunk.hs
index 44f2ae4..9ad41f8 100644
--- a/Network/HTTP/Lucu/Chunk.hs
+++ b/Network/HTTP/Lucu/Chunk.hs
@@ -26,6 +26,7 @@ chunkHeaderP = do hexLen <- many1 hexDigit
                                char '='
                                token <|> quotedStr
                      return ()
+{-# SPECIALIZE chunkHeaderP :: Parser Int #-}
 
 
 chunkFooterP :: Parser ()