import Data.Map (Map)
import Data.Monoid.Unicode
import Data.Text (Text)
+import Network.HTTP.Lucu.Parser
import Network.HTTP.Lucu.Parser.Http
import Network.HTTP.Lucu.RFC2231
import Prelude hiding (min)
parseMIMEType ∷ Ascii → MIMEType
{-# INLINEABLE parseMIMEType #-}
parseMIMEType str
- = case parseOnly p $ A.toByteString str of
+ = case parseOnly (finishOff mimeType) $ A.toByteString str of
Right t → t
Left err → error ("unparsable MIME Type: " ⧺ A.toString str ⧺ ": " ⧺ err)
- where
- p ∷ Parser MIMEType
- {-# INLINE p #-}
- p = do t ← mimeType
- endOfInput
- return t
-- |'Parser' for an 'MIMEType'.
mimeType ∷ Parser MIMEType