Suppress unused-do-bind warnings which GHC 6.12.1 emits

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

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 163f6bcf55bb2a9e4f78ef680919be07df354246..87d858c55ec023a07a263a3f6d2280adaf958eb6 100644 (file)
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -174,12 +174,12 @@ fromHeaders hs = [(fromNCBS a, b) | (a, b) <- M.toList hs]
 -}
 headersP :: Parser Headers
 headersP = do xs <- many header
-              crlf
+              _  <- crlf
               return $! toHeaders xs
     where
       header :: Parser (Strict.ByteString, Strict.ByteString)
       header = do name <- token
-                  char ':'
+                  _    <- char ':'
                   -- FIXME: これは多少インチキだが、RFC 2616 のこの部分
                   -- の記述はひどく曖昧であり、この動作が本當に間違って
                   -- ゐるのかどうかも良く分からない。例へば
@@ -187,7 +187,7 @@ headersP = do xs <- many header
                   -- のか？直勸的には駄目さうに思へるが、そんな記述は見
                   -- 付からない。
                   contents <- many (lws <|> many1 text)
-                  crlf
+                  _        <- crlf
                   let value = foldr (++) "" contents
                       norm  = normalize value
                   return (C8.pack name, C8.pack norm)