From 9f1cb6320673aba76e252c0724b72d380a274e19 Mon Sep 17 00:00:00 2001 From: Alp Mestanogullari Date: Fri, 29 May 2015 16:08:14 +0200 Subject: [PATCH] fix HTML content types in haddocks --- servant-blaze/src/Servant/HTML/Blaze.hs | 2 +- servant-lucid/src/Servant/HTML/Lucid.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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")