Browse Source

fix HTML content types in haddocks

tags/v0.4.1
Alp Mestanogullari 7 years ago
parent
commit
9f1cb63206
  1. 2
      servant-blaze/src/Servant/HTML/Blaze.hs
  2. 2
      servant-lucid/src/Servant/HTML/Lucid.hs

2
servant-blaze/src/Servant/HTML/Blaze.hs

@ -25,7 +25,7 @@ import Text.Blaze.Html.Renderer.Utf8 (renderHtml)
data HTML deriving Typeable
-- | @text/plain;charset=utf-8@
-- | @text/html;charset=utf-8@
instance Accept HTML where
contentType _ = "text" M.// "html" M./: ("charset", "utf-8")

2
servant-lucid/src/Servant/HTML/Lucid.hs

@ -24,7 +24,7 @@ import Servant.API (Accept (..), MimeRender (..))
data HTML deriving Typeable
-- | @text/plain;charset=utf-8@
-- | @text/html;charset=utf-8@
instance Accept HTML where
contentType _ = "text" M.// "html" M./: ("charset", "utf-8")

Loading…
Cancel
Save