--- |@'MIMEType' \"major\" \"minor\" [(\"name\", \"value\"), ...]@
--- represents \"major\/minor; name=value; ...\".
-data MIMEType = MIMEType {
- mtMajor ∷ !CIAscii
- , mtMinor ∷ !CIAscii
- , mtParams ∷ !(Map CIAscii Text)
- } deriving (Eq)
-
-instance Show MIMEType where
- show = A.toString ∘ A.fromAsciiBuilder ∘ printMIMEType
+-- |A media type, subtype, and parameters.
+data MIMEType
+ = MIMEType {
+ mtMedia ∷ !CIAscii
+ , mtSub ∷ !CIAscii
+ , mtParams ∷ !MIMEParams
+ }
+ deriving (Eq, Show, Read, Typeable)