diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,10 @@
-## [*Unreleased*](https://github.com/pbrisbin/hs-shellwords/compare/v0.1.2.1...master)
+## [*Unreleased*](https://github.com/pbrisbin/hs-shellwords/compare/v0.1.2.2...master)
 
 None
+
+## [v0.1.2.2](https://github.com/pbrisbin/hs-shellwords/compare/v0.1.2.1...v0.1.2.2)
+
+- Require megaparsec-7.0.0 (LTS-13.6/GHC-8.6)
 
 ## [v0.1.2.1](https://github.com/pbrisbin/hs-shellwords/compare/v0.1.2.0...v0.1.2.1)
 
diff --git a/shellwords.cabal b/shellwords.cabal
--- a/shellwords.cabal
+++ b/shellwords.cabal
@@ -1,11 +1,13 @@
--- This file has been generated from package.yaml by hpack version 0.28.2.
+cabal-version: 1.12
+
+-- This file has been generated from package.yaml by hpack version 0.31.1.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: ecca1ea7b4034a8595c7854737989ba34a995bab6c9fe5cedfb23c9bcded7ed5
+-- hash: f97a5c28708a550d522890024daed5930cd886bb2b5638a0d815a370602e190c
 
 name:           shellwords
-version:        0.1.2.1
+version:        0.1.2.2
 synopsis:       Parse strings into words, like a shell would
 description:    See https://github.com/pbrisbin/hs-shellwords#readme
 category:       Text
@@ -17,10 +19,9 @@
 license:        MIT
 license-file:   LICENSE
 build-type:     Simple
-cabal-version:  >= 1.10
 extra-source-files:
-    CHANGELOG.md
     README.md
+    CHANGELOG.md
 
 source-repository head
   type: git
@@ -32,7 +33,7 @@
   ghc-options: -Wall
   build-depends:
       base >=4.7 && <5
-    , megaparsec
+    , megaparsec >=7.0.0
     , text
   exposed-modules:
       ShellWords
diff --git a/src/ShellWords.hs b/src/ShellWords.hs
--- a/src/ShellWords.hs
+++ b/src/ShellWords.hs
@@ -19,9 +19,8 @@
 type Parser = Parsec Void String
 
 parse :: String -> Either String [String]
-parse = first parseErrorPretty . Megaparsec.parse parser "<input>" . strip
-  where
-    strip = let f = reverse . dropWhile isSpace in f . f
+parse = first errorBundlePretty . Megaparsec.parse parser "<input>" . strip
+    where strip = let f = reverse . dropWhile isSpace in f . f
 
 -- | Parse and return @'Text'@ values
 parseText :: Text -> Either String [Text]
@@ -42,6 +41,8 @@
 -- | A flag, with or without an argument
 shelloption :: Parser String
 shelloption = (<>) <$> flag <*> (fromMaybe "" <$> optional argument)
+
+-- brittany-disable-next-binding
 
 -- | A flag like @--foo@, or (apparently) @--\"baz bat\"@
 flag :: Parser String