import Data.Typeable
import Language.Haskell.TH.Syntax
import Network.HTTP.Lucu.MIMEParams
+import Network.HTTP.Lucu.OrphanInstances ()
import Network.HTTP.Lucu.Parser
import Network.HTTP.Lucu.Parser.Http
-import Network.HTTP.Lucu.Utils
import Prelude.Unicode
-- |A media type, subtype, and parameters.
instance Lift MIMEType where
lift (MIMEType {..})
= [| MIMEType {
- mtMedia = $(liftCIAscii mtMedia)
- , mtSub = $(liftCIAscii mtSub)
+ mtMedia = $(lift mtMedia )
+ , mtSub = $(lift mtSub )
, mtParams = $(lift mtParams)
}
|]
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