parseMIMEType str
= case parseOnly (finishOff mimeType) $ A.toByteString str of
Right t → t
- Left err → error ("unparsable MIME Type: " ⧺ A.toString str ⧺ ": " ⧺ err)
+ Left err → error ("Unparsable MIME Type: " ⧺ A.toString str ⧺ ": " ⧺ err)
-- |'Parser' for an 'MIMEType'.
mimeType ∷ Parser MIMEType