UnicodeSyntax
, ViewPatterns
#-}
+-- |A module to provide 'QuasiQuoter' for 'MIMEType' literals.
module Network.HTTP.Lucu.MIMEType.TH
( mimeType
)
import Network.HTTP.Lucu.Utils
import Prelude.Unicode
--- |A 'QuasiQuoter' for 'MIMEType' literals.
+-- |'QuasiQuoter' for 'MIMEType' literals.
--
-- @
-- textPlain :: 'MIMEType'
--- textPlain = ['mimeType'| text/plain; charset="UTF-8" |]
+-- textPlain = ['mimeType'| text/plain; charset=\"UTF-8\" |]
-- @
mimeType ∷ QuasiQuoter
mimeType = QuasiQuoter {