From 82b3e0ab97a67188f0886dd6b758aa8d0ccd1064 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 14 Oct 2015 09:09:10 -0700 Subject: Use custom Prelude to avoid compiler warnings. - The (non-exported) prelude is in prelude/Prelude.hs. - It exports Monoid and Applicative, like base 4.8 prelude, but works with older base versions. - It exports (<>) for mappend. - It hides 'catch' on older base versions. This allows us to remove many imports of Data.Monoid and Control.Applicative, and remove Text.Pandoc.Compat.Monoid. It should allow us to use -Wall again for ghc 7.10. --- src/Text/Pandoc/Compat/Monoid.hs | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 src/Text/Pandoc/Compat/Monoid.hs (limited to 'src/Text/Pandoc/Compat') diff --git a/src/Text/Pandoc/Compat/Monoid.hs b/src/Text/Pandoc/Compat/Monoid.hs deleted file mode 100644 index cb7ea2527..000000000 --- a/src/Text/Pandoc/Compat/Monoid.hs +++ /dev/null @@ -1,20 +0,0 @@ -{-# LANGUAGE CPP #-} -module Text.Pandoc.Compat.Monoid ( Monoid(..) - , (<>) - ) where - -#if MIN_VERSION_base(4,5,0) -import Data.Monoid ((<>), Monoid(..)) -#else -import Data.Monoid (mappend, Monoid(..)) -#endif - -#if MIN_VERSION_base(4,5,0) -#else -infixr 6 <> - --- | An infix synonym for 'mappend'. -(<>) :: Monoid m => m -> m -> m -(<>) = mappend -{-# INLINE (<>) #-} -#endif -- cgit v1.2.3