where
import Data.Char
+import Data.Ord
import Data.Maybe
import Network.HTTP.Lucu.Parser
import Network.HTTP.Lucu.Parser.Http
orderAcceptEncodings :: (String, Maybe Double) -> (String, Maybe Double) -> Ordering
orderAcceptEncodings (_, q1) (_, q2)
- = fromMaybe 0 q1 `compare` fromMaybe 0 q2
+ = comparing (fromMaybe 0) q1 q2
+