import qualified Data.Ascii as A
import Data.Attoparsec.Char8 as P
import qualified Data.ByteString.Char8 as C8
+import Data.Map (Map)
import Data.Monoid.Unicode
+import Data.Text (Text)
import Network.HTTP.Lucu.Parser.Http
import Network.HTTP.Lucu.Utils
import Prelude hiding (min)
data MIMEType = MIMEType {
mtMajor ∷ !CIAscii
, mtMinor ∷ !CIAscii
- , mtParams ∷ ![ (CIAscii, Ascii) ]
+ , mtParams ∷ !(Map CIAscii Text)
} deriving (Eq, Show)
-- |Convert a 'MIMEType' to 'Ascii'.