Cosmetic changes suggested by hlint

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

diff --git a/Network/HTTP/Lucu/ContentCoding.hs b/Network/HTTP/Lucu/ContentCoding.hs
index 37adda38768ab793862f3c692353665d33d36b3c..0771efa91ace3e052f43d5b298597270c04a3c79 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
@@ -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
+