Optimized as possible as I can.

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

diff --git a/Network/HTTP/Lucu/Chunk.hs b/Network/HTTP/Lucu/Chunk.hs
index 44f2ae4c16890bc3df3b4064938c378335d2af9c..9ad41f86786c0cdf15aed8c03717426356a88d1a 100644 (file)
--- 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 ()