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 342362c07959b21353d7334867277d4f285f9b45..9ad41f86786c0cdf15aed8c03717426356a88d1a 100644 (file)
--- a/Network/HTTP/Lucu/Chunk.hs
+++ b/Network/HTTP/Lucu/Chunk.hs
@@ -1,3 +1,4 @@
+-- #hide
 module Network.HTTP.Lucu.Chunk
     ( chunkHeaderP  -- Num a => Parser a
     , chunkFooterP  -- Parser ()
@@ -25,6 +26,7 @@ chunkHeaderP = do hexLen <- many1 hexDigit
                                char '='
                                token <|> quotedStr
                      return ()
+{-# SPECIALIZE chunkHeaderP :: Parser Int #-}
 
 
 chunkFooterP :: Parser ()