Network/HTTP/Lucu/MIMEParams/Internal.hs

   1 {-# LANGUAGE
   2     DeriveDataTypeable
   3   , GeneralizedNewtypeDeriving
   4   #-}
   5 module Network.HTTP.Lucu.MIMEParams.Internal
   6     ( MIMEParams(..)
   7     )
   8     where
   9 import Data.Ascii (CIAscii)
  10 import qualified Data.Map as M (Map)
  11 import Data.Monoid
  12 import Data.Text (Text)
  13 import Data.Typeable
  14
  15 -- |A 'Map' from MIME parameter attributes to values. Attributes are
  16 -- always case-insensitive according to RFC 2045
  17 -- (<http://tools.ietf.org/html/rfc2045#section-5.1>).
  18 newtype MIMEParams
  19     = MIMEParams (M.Map CIAscii Text)
  20     deriving (Eq, Show, Read, Monoid, Typeable)