9f1cb63 · typeable/servant

git.iko.soy/typeable/servant

on master help sign in

fix HTML content types in haddocks

9f1cb63Alp Mestanogullari11 years ago

servant-blaze/src/Servant/HTML/Blaze.hs+1−1

@@ -25,7 +25,7 @@ import Text.Blaze.Html.Renderer.Utf8 (renderHtml)

26data HTML deriving Typeable

28−-- | @text/plain;charset=utf-8@

28+-- | @text/html;charset=utf-8@

29instance Accept HTML where

30 contentType _ = "text" M.// "html" M./: ("charset", "utf-8")

servant-lucid/src/Servant/HTML/Lucid.hs+1−1

@@ -24,7 +24,7 @@ import Servant.API (Accept (..), MimeRender (..))

25data HTML deriving Typeable

27−-- | @text/plain;charset=utf-8@

27+-- | @text/html;charset=utf-8@

28instance Accept HTML where

29 contentType _ = "text" M.// "html" M./: ("charset", "utf-8")