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 import Language.Haskell.TH.Syntax
  15 import Network.HTTP.Lucu.OrphanInstances ()
  16
  17 -- |A 'Map' from MIME parameter attributes to values. Attributes are
  18 -- always case-insensitive according to RFC 2045
  19 -- (<http://tools.ietf.org/html/rfc2045#section-5.1>).
  20 newtype MIMEParams
  21     = MIMEParams (M.Map CIAscii Text)
  22     deriving (Eq, Show, Read, Lift, Monoid, Typeable)