diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,6 @@
+## Inflections 0.4.0.1
+* Support `megaparsec` >= 6.4.0
+
 ## Inflections 0.4.0.0
 
 * Update megaparsec to version 6.
diff --git a/Text/Inflections/Parse/CamelCase.hs b/Text/Inflections/Parse/CamelCase.hs
--- a/Text/Inflections/Parse/CamelCase.hs
+++ b/Text/Inflections/Parse/CamelCase.hs
@@ -17,11 +17,15 @@
   ( parseCamelCase )
 where
 
-import Control.Applicative
+# if MIN_VERSION_base(4,8,0)
+import Control.Applicative (empty, many, (<|>))
+#else
+import Control.Applicative (empty, many, (<|>), (<$>), (<*))
+#endif
 import Data.Text (Text)
 import Data.Void (Void)
 import Text.Inflections.Types
-import Text.Megaparsec
+import Text.Megaparsec (Parsec, ParseError, choice, eof, parse)
 import Text.Megaparsec.Char
 import qualified Data.Text as T
 
diff --git a/Text/Inflections/Parse/SnakeCase.hs b/Text/Inflections/Parse/SnakeCase.hs
--- a/Text/Inflections/Parse/SnakeCase.hs
+++ b/Text/Inflections/Parse/SnakeCase.hs
@@ -16,11 +16,15 @@
   ( parseSnakeCase )
 where
 
-import Control.Applicative
+# if MIN_VERSION_base(4,8,0)
+import Control.Applicative (empty, some)
+#else
+import Control.Applicative (empty, some, (<$>), (<*))
+#endif
 import Data.Text (Text)
 import Data.Void (Void)
 import Text.Inflections.Types
-import Text.Megaparsec
+import Text.Megaparsec (Parsec, ParseError, eof, sepBy, parse)
 import Text.Megaparsec.Char
 import qualified Data.Text as T
 
diff --git a/inflections.cabal b/inflections.cabal
--- a/inflections.cabal
+++ b/inflections.cabal
@@ -1,5 +1,5 @@
 name:                inflections
-version:             0.4.0.0
+version:             0.4.0.1
 synopsis:            Inflections library for Haskell
 description:
   Inflections provides methods for singularization, pluralization,