Destroy Data.Attoparsec.Parsable; use Data.Default instead

[Lucu.git] / Network / HTTP / Lucu / MIMEType / Guess.hs

diff --git a/Network/HTTP/Lucu/MIMEType/Guess.hs b/Network/HTTP/Lucu/MIMEType/Guess.hs
index 3149859026d9a28d3feeb99a2286961f1c74eca6..05d0cd606f383eccdbef688a39dfa4f1e215b3d5 100644 (file)
--- a/Network/HTTP/Lucu/MIMEType/Guess.hs
+++ b/Network/HTTP/Lucu/MIMEType/Guess.hs
@@ -19,10 +19,10 @@ module Network.HTTP.Lucu.MIMEType.Guess
 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
@@ -99,7 +99,7 @@ instance ConvertAttempt Lazy.ByteString ExtMap where
 
           pair ∷ Parser (MIMEType, [Text])
           pair = do skipSpace
-                    mime ← parser
+                    mime ← def
                     skipSpace1
                     exts ← sepBy1 ext $ skipWhile1 (≡ '\x20')
                     return (mime, exts)