@@ -299,5 +299,10 @@ decodeFileThrow f = liftIO $ decodeFileEither f >>= either throwIO return
299299array :: [Value] -> Value
300300array = Array . V.fromList
301301
302+#if MIN_VERSION_base(4, 13, 0)
303+parseMonad :: MonadFail m => (a -> Parser b) -> a -> m b
304+#else
302305parseMonad :: Monad m => (a -> Parser b) -> a -> m b
306+#endif
303307parseMonad p = either fail return . parseEither p
308+{-# DEPRECATED parseMonad "With the MonadFail split, this function is going to be removed in the future. Please migrate to parseEither." #-}