eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix HTML content types in haddocks

Browse source
This commit is contained in:
Alp Mestanogullari 2015-05-29 16:08:14 +02:00
parent db8cf8bd8d
commit 9f1cb63206
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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

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

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