@@ -866,7 +866,11 @@ instance (MonadTrans t, PandocMonad m, Functor (t m),
866866 putCommonState = lift . putCommonState
867867 logOutput = lift . logOutput
868868
869+#if MIN_VERSION_base(4,8,0)
869870instance {-# OVERLAPS #-} PandocMonad m => PandocMonad (ParsecT s st m) where
871+#else
872+instance PandocMonad m => PandocMonad (ParsecT s st m) where
873+#endif
870874 lookupEnv = lift . lookupEnv
871875 getCurrentTime = lift getCurrentTime
872876 getCurrentTimeZone = lift getCurrentTimeZone