Suppress unused-do-bind warnings which GHC 6.12.1 emits

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

diff --git a/Network/HTTP/Lucu/ContentCoding.hs b/Network/HTTP/Lucu/ContentCoding.hs
index 37adda38768ab793862f3c692353665d33d36b3c..27a89415a0d9e1e420ba7f57cd00815c594abb4a 100644 (file)
--- a/Network/HTTP/Lucu/ContentCoding.hs
+++ b/Network/HTTP/Lucu/ContentCoding.hs
@@ -7,6 +7,7 @@ module Network.HTTP.Lucu.ContentCoding
     where
 
 import           Data.Char
+import           Data.Ord
 import           Data.Maybe
 import           Network.HTTP.Lucu.Parser
 import           Network.HTTP.Lucu.Parser.Http
@@ -19,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)
@@ -43,4 +44,5 @@ unnormalizeCoding coding
 
 orderAcceptEncodings :: (String, Maybe Double) -> (String, Maybe Double) -> Ordering
 orderAcceptEncodings (_, q1) (_, q2)
-    = fromMaybe 0 q1 `compare` fromMaybe 0 q2
+    = comparing (fromMaybe 0) q1 q2
+