+-- |A map from MIME parameter attributes to values. Attributes are
+-- always case-insensitive according to RFC 2045
+-- (<http://tools.ietf.org/html/rfc2045#section-5.1>).
+newtype MIMEParams
+ = MIMEParams (Map CIAscii Text)
+ deriving (Eq, Show, Read, Monoid, Typeable)
+
+instance Lift MIMEParams where
+ lift (MIMEParams m) = [| MIMEParams $(liftParams m) |]
+ where
+ liftParams ∷ Map CIAscii Text → Q Exp
+ liftParams = liftMap liftCIAscii liftText
+