diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# 0.9
+
+- Also accept content type without character set i.e `text/html`
+
 # 0.8.1
 
 - Support `servant-0.14`
diff --git a/servant-lucid.cabal b/servant-lucid.cabal
--- a/servant-lucid.cabal
+++ b/servant-lucid.cabal
@@ -1,5 +1,7 @@
+cabal-version:       >=1.10
 name:                servant-lucid
-version:             0.8.1
+version:             0.9
+
 synopsis:            Servant support for lucid
 description:
   Servant support for lucid.
@@ -7,23 +9,24 @@
   'HTML' content type which will use `ToHtml` class.
   .
   Lucid.Servant uses `Link` rather than `Text` for safe 'href' attributes.
+
 homepage:            http://haskell-servant.readthedocs.org/
+bug-reports:         http://github.com/haskell-servant/servant-lucid/issues
 license:             BSD3
 license-file:        LICENSE
 author:              Servant Contributors
 maintainer:          haskell-servant-maintainers@googlegroups.com
-copyright:           2015-2016 Servant Contributors
+copyright:           2015-2018 Servant Contributors
 category:            Web, Servant
 build-type:          Simple
 extra-source-files:  CHANGELOG.md
-cabal-version:       >=1.10
-bug-reports:         http://github.com/haskell-servant/servant-lucid/issues
 tested-with:
-  GHC==7.8.4,
-  GHC==7.10.3,
-  GHC==8.0.2,
-  GHC==8.2.2,
-  GHC==8.4.3
+  GHC ==7.8.4
+   || ==7.10.3
+   || ==8.0.2
+   || ==8.2.2
+   || ==8.4.4
+   || ==8.6.3
 
 source-repository head
   type: git
@@ -36,7 +39,7 @@
                      , http-media >=0.6.4   && <0.8
                      , lucid      >=2.9.8   && <2.10
                      , text       >=1.2.3.0 && <1.3
-                     , servant    >=0.14    && <0.15
+                     , servant    >=0.14    && <0.16
 
   if !impl(ghc >= 8.0)
     build-depends:     semigroups >=0.18.4  && <0.19
@@ -55,7 +58,7 @@
       base
     , lucid
     , servant-lucid
-    , servant-server >=0.14     && <0.15
+    , servant-server >=0.14     && <0.16
     , wai            >=3.0.3.0  && <3.3
     , warp           >=3.0.13.1 && <3.3
   default-language: Haskell2010
diff --git a/src/Servant/HTML/Lucid.hs b/src/Servant/HTML/Lucid.hs
--- a/src/Servant/HTML/Lucid.hs
+++ b/src/Servant/HTML/Lucid.hs
@@ -14,6 +14,7 @@
 -- Will then check that @a@ has a `ToHtml` instance, or is `Html`.
 module Servant.HTML.Lucid where
 
+import qualified Data.List.NonEmpty as NE
 import           Data.Typeable      (Typeable)
 import           Lucid              (ToHtml (..), renderBS)
 import qualified Network.HTTP.Media as M
@@ -23,7 +24,9 @@
 
 -- | @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 ToHtml a => MimeRender HTML a where
     mimeRender _ = renderBS . toHtml