Suppress unused-do-bind warnings which GHC 6.12.1 emits

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

diff --git a/Network/HTTP/Lucu/Chunk.hs b/Network/HTTP/Lucu/Chunk.hs
index dd7465e2bf5ae5c15956c68f95138696bf3de996..27deb740821f9c68bd5b3159c08469513c7c222d 100644 (file)
--- a/Network/HTTP/Lucu/Chunk.hs
+++ b/Network/HTTP/Lucu/Chunk.hs
@@ -13,18 +13,20 @@ import           Numeric
 
 chunkHeaderP :: Num a => Parser a
 chunkHeaderP = do hexLen <- many1 hexDigit
-                  extension
-                  crlf
+                  _      <- extension
+                  _      <- crlf
 
                   let [(len, _)] = readHex hexLen
                   return len
     where
       extension :: Parser ()
-      extension = do many $ do char ';'
-                               token
-                               char '='
-                               token <|> quotedStr
-                     return ()
+      extension = many ( char ';' >>
+                         token    >>
+                         char '=' >>
+                         ( token <|> quotedStr )
+                       )
+                  >>
+                  return ()
 {-# SPECIALIZE chunkHeaderP :: Parser Int #-}