X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEParams%2FInternal.hs;fp=Network%2FHTTP%2FLucu%2FMIMEParams%2FInternal.hs;h=b863f0fa563fd26d869a27b8f1e7008683e3c308;hb=b2da45926a7900603a5426e0c6d65e3ca630a1a2;hp=0000000000000000000000000000000000000000;hpb=68afccfff5a39e92903c467fac3a99734ce8a404;p=Lucu.git

diff --git a/Network/HTTP/Lucu/MIMEParams/Internal.hs b/Network/HTTP/Lucu/MIMEParams/Internal.hs
new file mode 100644
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)