diff --git a/servant-blaze/src/Servant/HTML/Blaze.hs b/servant-blaze/src/Servant/HTML/Blaze.hs index d13af84c..7870022d 100644 --- a/servant-blaze/src/Servant/HTML/Blaze.hs +++ b/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") diff --git a/servant-lucid/src/Servant/HTML/Lucid.hs b/servant-lucid/src/Servant/HTML/Lucid.hs index 7fa39709..f222c6ac 100644 --- a/servant-lucid/src/Servant/HTML/Lucid.hs +++ b/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")