where
import Control.Applicative
import Data.Ascii (Ascii, AsciiBuilder, CIAscii)
-import qualified Data.Ascii as A
-import Data.Attoparsec.Char8 as P
+import Data.Attoparsec.Char8
import Data.Convertible.Base
import Data.Convertible.Instances.Ascii ()
import Data.Convertible.Utils
-- |'Parser' for an 'MIMEType'.
mimeType ∷ Parser MIMEType
{-# INLINEABLE mimeType #-}
-mimeType = do media ← A.toCIAscii <$> token
+mimeType = do media ← cs <$> token
_ ← char '/'
- sub ← A.toCIAscii <$> token
+ sub ← cs <$> token
params ← mimeParams
return $ MIMEType media sub params