Add derived Ord instances for all types

Allows for the MediaType, Language, and Quality types to be ordered for
standard use in storage or lookup. Bumps version number to 0.6.

http-media.cabal

@@ -1,5 +1,5 @@
 name:          http-media
-version:       0.5.1
+version:       0.6.0
 license:       MIT
 license-file:  LICENSE
 author:        Timothy Jones

src/Network/HTTP/Media/Language/Internal.hs

@@ -32,7 +32,7 @@ import Network.HTTP.Media.RenderHeader (RenderHeader (..))
 --
 -- > language-range = ( ( 1*8ALPHA *( "-" 1*8ALPHA ) ) | "*" )
 newtype Language = Language [CI ByteString]
-    deriving (Eq)
+    deriving (Eq, Ord)
 
 -- Note that internally, Language [] equates to *.
 

src/Network/HTTP/Media/MediaType/Internal.hs

@@ -31,7 +31,7 @@ data MediaType = MediaType
     { mainType   :: CI ByteString  -- ^ The main type of the MediaType
     , subType    :: CI ByteString  -- ^ The sub type of the MediaType
     , parameters :: Parameters     -- ^ The parameters of the MediaType
-    } deriving (Eq)
+    } deriving (Eq, Ord)
 
 instance Show MediaType where
     show = BS.unpack . renderHeader

src/Network/HTTP/Media/Quality.hs

@@ -26,7 +26,7 @@ import Network.HTTP.Media.RenderHeader (RenderHeader (..))
 data Quality a = Quality
     { qualityData  :: a
     , qualityValue :: Word16
-    } deriving (Eq)
+    } deriving (Eq, Ord)
 
 instance RenderHeader a => Show (Quality a) where
     show = BS.unpack . renderHeader