import Control.Applicative
import Data.Attoparsec.Char8
import qualified Data.Attoparsec.Lazy as LP
-import Data.Attoparsec.Parsable
import qualified Data.ByteString.Lazy.Char8 as Lazy
import Data.Convertible.Base
import Data.Convertible.Instances.Text ()
+import Data.Default
import qualified Data.Map as M
import Data.Map (Map)
import Data.Typeable
pair ∷ Parser (MIMEType, [Text])
pair = do skipSpace
- mime ← parser
+ mime ← def
skipSpace1
exts ← sepBy1 ext $ skipWhile1 (≡ '\x20')
return (mime, exts)