diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## Hspec Megaparsec 0.1.1
+
+* Make it pass tests with Megaparsec 4.4.0 and later.
+
 ## Hspec Megaparsec 0.1.0
 
 * Initial release.
diff --git a/Test/Hspec/Megaparsec.hs b/Test/Hspec/Megaparsec.hs
--- a/Test/Hspec/Megaparsec.hs
+++ b/Test/Hspec/Megaparsec.hs
@@ -115,7 +115,7 @@
 -- that support incremental parsing.
 --
 -- > runParser' (many (char 'x') <* eof) (initialState "xxa")
--- >   `failsLeaving` "xxa"
+-- >   `failsLeaving` "a"
 --
 -- See also: 'initialState'.
 
diff --git a/hspec-megaparsec.cabal b/hspec-megaparsec.cabal
--- a/hspec-megaparsec.cabal
+++ b/hspec-megaparsec.cabal
@@ -31,7 +31,7 @@
 -- POSSIBILITY OF SUCH DAMAGE.
 
 name:                 hspec-megaparsec
-version:              0.1.0
+version:              0.1.1
 cabal-version:        >= 1.10
 license:              BSD3
 license-file:         LICENSE.md
diff --git a/tests/Main.hs b/tests/Main.hs
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -67,7 +67,11 @@
   describe "failsLeaving" $
     it "works" $
       runParser' (many (char 'x') <* eof) (initialState "xxa")
+#if MIN_VERSION_megaparsec(4,4,0)
+        `failsLeaving` "a"
+#else
         `failsLeaving` "xxa"
+#endif
   describe "succeedsLeaving" $
     it "works" $
       runParser' (many (char 'x')) (initialState "xxa")