diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,9 @@
+# ChangeLog for `html-conduit`
+
+## 1.3.2.1
+
+* Allow xml-conduit 1.9
+
 ## 1.3.2
 
 * Fix a bug that was removing `<` symbols in script tags.
diff --git a/html-conduit.cabal b/html-conduit.cabal
--- a/html-conduit.cabal
+++ b/html-conduit.cabal
@@ -1,5 +1,5 @@
 Name:                html-conduit
-Version:             1.3.2
+Version:             1.3.2.1
 Synopsis:            Parse HTML documents using xml-conduit datatypes.
 Description:         This package uses tagstream-conduit for its parser. It automatically balances mismatched tags, so that there shouldn't be any parse failures. It does not handle a full HTML document rendering, such as adding missing html and head tags. Note that, since version 1.3.1, it uses an inlined copy of tagstream-conduit with entity decoding bugfixes applied.
 Homepage:            https://github.com/snoyberg/xml
diff --git a/src/Text/HTML/TagStream.hs b/src/Text/HTML/TagStream.hs
--- a/src/Text/HTML/TagStream.hs
+++ b/src/Text/HTML/TagStream.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE OverloadedStrings, TupleSections, ViewPatterns #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE CPP #-}
 module Text.HTML.TagStream
   ( Token (..)
   , tokenStream
@@ -149,7 +150,11 @@
 decodeEntity entity =
              runConduit
            $ CL.sourceList ["&",entity,";"]
+#if MIN_VERSION_xml_conduit(1,9,0)
+          .| XML.parseText XML.def { XML.psDecodeEntities = XML.decodeHtmlEntities }
+#else
           .| XML.parseText' XML.def { XML.psDecodeEntities = XML.decodeHtmlEntities }
+#endif
           .| XML.content
 
 token :: Parser Token