Accept content type without character set

See haskell-servant/servant#1097 for details.
edsko · Dec 16, 2018 · c9cae2c · c9cae2c
1 parent 463b95c
commit c9cae2c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Servant/HTML/Blaze.hs b/src/Servant/HTML/Blaze.hs
@@ -19,12 +19,15 @@ import qualified Network.HTTP.Media            as M
 import           Servant.API                   (Accept (..), MimeRender (..))
 import           Text.Blaze.Html               (Html, ToMarkup, toHtml)
 import           Text.Blaze.Html.Renderer.Utf8 (renderHtml)
+import qualified Data.List.NonEmpty            as NE
 
 data HTML deriving Typeable
 
 -- | @text/html;charset=utf-8@
 instance Accept HTML where
-    contentType _ = "text" M.// "html" M./: ("charset", "utf-8")
+    contentTypes _ =
+      "text" M.// "html" M./: ("charset", "utf-8") NE.:|
+      ["text" M.// "html"]
 
 instance ToMarkup a => MimeRender HTML a where
     mimeRender _ = renderHtml . toHtml