auto-derive Map

[Lucu.git] / Network / HTTP / Lucu / MIMEParams / Internal.hs

diff --git a/Network/HTTP/Lucu/MIMEParams/Internal.hs b/Network/HTTP/Lucu/MIMEParams/Internal.hs
new file mode 100644 (file)
index 0000000..b863f0f
--- /dev/null
+++ b/Network/HTTP/Lucu/MIMEParams/Internal.hs
@@ -0,0 +1,20 @@
+{-# LANGUAGE
+    DeriveDataTypeable
+  , GeneralizedNewtypeDeriving
+  #-}
+module Network.HTTP.Lucu.MIMEParams.Internal
+    ( MIMEParams(..)
+    )
+    where
+import Data.Ascii (CIAscii)
+import qualified Data.Map as M (Map)
+import Data.Monoid
+import Data.Text (Text)
+import Data.Typeable
+
+-- |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 (M.Map CIAscii Text)
+    deriving (Eq, Show, Read, Monoid, Typeable)