diff --git a/src/Data/Time/Format/Compat.hs b/src/Data/Time/Format/Compat.hs
--- a/src/Data/Time/Format/Compat.hs
+++ b/src/Data/Time/Format/Compat.hs
@@ -21,13 +21,22 @@
 
 import Data.Time.Orphans ()
 
-import Data.Time.Format
-
 #if !MIN_VERSION_time(1,5,0)
+import Data.Time.Format
 import System.Locale (TimeLocale, defaultTimeLocale, iso8601DateFormat, rfc822DateFormat)
-import qualified Control.Monad.Fail as Fail
 import Text.ParserCombinators.ReadP (readP_to_S, readS_to_P, ReadP)
+#else
+#if !(MIN_VERSION_time(1,9,0)) || !(MIN_VERSION_base(4,9,0))
+import Data.Time.Format hiding (parseTimeM)
+#else
+import Data.Time.Format
+#endif
+#endif
 
+import qualified Control.Monad.Fail as Fail
+import qualified Data.Time.Format
+
+#if !MIN_VERSION_time(1,5,0)
 parseTimeM
     :: (Fail.MonadFail m, ParseTime t)
     => Bool       -- ^ Accept leading and trailing whitespace?
@@ -65,4 +74,24 @@
           -> String     -- ^ Format string
           -> ReadP t
 readPTime acceptWS l f = readS_to_P (readSTime acceptWS l f)
+
+#else
+
+-- parseTimeM has always Fail.MonadFail constraint
+#if !MIN_VERSION_time(1,9,0) || !MIN_VERSION_base(4,9,0)
+-- | Parses a time value given a format string.
+--
+-- This variant from @time-compat@ has always 'Fail.MonadFail' constraint.
+--
+-- Look at 'Data.Time.Format.parseTimeM' for documentation.
+parseTimeM
+    :: (Fail.MonadFail m, ParseTime t)
+    => Bool       -- ^ Accept leading and trailing whitespace?
+    -> TimeLocale -- ^ Time locale.
+    -> String     -- ^ Format string.
+    -> String     -- ^ Input string.
+    -> m t        -- ^ Return the time value, or fail if the in
+parseTimeM = Data.Time.Format.parseTimeM
+#endif
+
 #endif
diff --git a/time-compat.cabal b/time-compat.cabal
--- a/time-compat.cabal
+++ b/time-compat.cabal
@@ -1,6 +1,6 @@
 cabal-version: 1.12
 name:          time-compat
-version:       1.9.2.1
+version:       1.9.2.2
 synopsis:      Compatibility package for time
 description:
   This packages tries to compat as much of @time@ features as possible.
@@ -45,7 +45,7 @@
       base          >=4.3     && <4.14
     , base-orphans  >=0.8.1   && <0.9
     , deepseq       >=1.3.0.0 && <1.4 || >=1.4.1.1 && <1.5
-    , time          >=1.2     && <1.3 || >=1.4 && <1.7 || >=1.8 && <1.10
+    , time          >=1.2     && <1.3 || >=1.4 && <1.7 || >=1.8 && <1.9 || >=1.9.2 && <1.9.3
 
   if flag(old-locale)
     build-depends: