X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FChunk.hs;h=dd7465e2bf5ae5c15956c68f95138696bf3de996;hb=d05d8c883eaca12ee621975a2b95c5ebdc2357d2;hp=44f2ae4c16890bc3df3b4064938c378335d2af9c;hpb=b340a77fa7bd051dd13a41d0a5b1ad30220bc6b6;p=Lucu.git

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