From e334d7dc389203b48b8e5f0d90960d08350b93f8 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 20 Aug 2017 11:13:42 -0700 Subject: Protect OVERLAPS pragma with CPP. --- src/Text/Pandoc/Class.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs index 5ca285ca4..98c567afc 100644 --- a/src/Text/Pandoc/Class.hs +++ b/src/Text/Pandoc/Class.hs @@ -866,7 +866,11 @@ instance (MonadTrans t, PandocMonad m, Functor (t m), putCommonState = lift . putCommonState logOutput = lift . logOutput +#if MIN_VERSION_base(4,8,0) instance {-# OVERLAPS #-} PandocMonad m => PandocMonad (ParsecT s st m) where +#else +instance PandocMonad m => PandocMonad (ParsecT s st m) where +#endif lookupEnv = lift . lookupEnv getCurrentTime = lift getCurrentTime getCurrentTimeZone = lift getCurrentTimeZone -- cgit v1.2.3