X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FContentCoding.hs;h=27a89415a0d9e1e420ba7f57cd00815c594abb4a;hp=0771efa91ace3e052f43d5b298597270c04a3c79;hb=9ac730212cb361eb10e5fe4ad0eec6758e2b200a;hpb=105aec5e11818a08bdc964cf93856e0ff95768ac

diff --git a/Network/HTTP/Lucu/ContentCoding.hs b/Network/HTTP/Lucu/ContentCoding.hs
index 0771efa..27a8941 100644
--- a/Network/HTTP/Lucu/ContentCoding.hs
+++ b/Network/HTTP/Lucu/ContentCoding.hs
@@ -20,7 +20,7 @@ acceptEncodingListP = allowEOF $! listOf accEncP
 accEncP :: Parser (String, Maybe Double)
 accEncP = do coding <- token
              qVal   <- option Nothing
-                       $ do string ";q="
+                       $ do _ <- string ";q="
                             q <- qvalue
                             return $ Just q
              return (normalizeCoding coding, qVal)