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.

8 files changed, 0 insertions, 8 deletions

diff --git a/tests/Tests/Readers/EPUB.hs b/tests/Tests/Readers/EPUB.hs
index 033352d51..2ad36eba6 100644
--- a/tests/Tests/Readers/EPUB.hs
+++ b/tests/Tests/Readers/EPUB.hs
@@ -7,7 +7,6 @@ import Test.Framework.Providers.HUnit
 import qualified Data.ByteString.Lazy as BL
 import Text.Pandoc.Readers.EPUB
 import Text.Pandoc.MediaBag (MediaBag, mediaDirectory)
-import Control.Applicative
 import Text.Pandoc.Error
 
 getMediaBag :: FilePath -> IO MediaBag
diff --git a/tests/Tests/Readers/LaTeX.hs b/tests/Tests/Readers/LaTeX.hs
index b72d707e7..e21f75aa9 100644
--- a/tests/Tests/Readers/LaTeX.hs
+++ b/tests/Tests/Readers/LaTeX.hs
@@ -7,7 +7,6 @@ import Tests.Helpers
 import Tests.Arbitrary()
 import Text.Pandoc.Builder
 import Text.Pandoc
-import Data.Monoid (mempty)
 import Text.Pandoc.Error
 
 latex :: String -> Pandoc
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs
index 52aaea52e..b1aaaacad 100644
--- a/tests/Tests/Readers/Org.hs
+++ b/tests/Tests/Readers/Org.hs
@@ -7,7 +7,6 @@ import Tests.Helpers
 import Text.Pandoc.Builder
 import Text.Pandoc
 import Data.List (intersperse)
-import Data.Monoid (mempty, mappend, mconcat)
 import Text.Pandoc.Error
 
 org :: String -> Pandoc
diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs
index 48abc16f8..df6ba61b2 100644
--- a/tests/Tests/Readers/RST.hs
+++ b/tests/Tests/Readers/RST.hs
@@ -8,7 +8,6 @@ import Tests.Arbitrary()
 import Text.Pandoc.Builder
 import Text.Pandoc
 import Text.Pandoc.Error
-import Data.Monoid (mempty)
 
 rst :: String -> Pandoc
 rst = handleError . readRST def{ readerStandalone = True }
diff --git a/tests/Tests/Readers/Txt2Tags.hs b/tests/Tests/Readers/Txt2Tags.hs
index 938a2b455..bfe217ce3 100644
--- a/tests/Tests/Readers/Txt2Tags.hs
+++ b/tests/Tests/Readers/Txt2Tags.hs
@@ -9,7 +9,6 @@ import Text.Pandoc.Builder
 import Text.Pandoc
 import Text.Pandoc.Error
 import Data.List (intersperse)
-import Data.Monoid (mempty, mconcat)
 import Text.Pandoc.Readers.Txt2Tags
 
 t2t :: String -> Pandoc
diff --git a/tests/Tests/Shared.hs b/tests/Tests/Shared.hs
index 4d6076114..12652e4b7 100644
--- a/tests/Tests/Shared.hs
+++ b/tests/Tests/Shared.hs
@@ -8,7 +8,6 @@ import Tests.Arbitrary()
 import Test.Framework.Providers.HUnit
 import Test.HUnit ( assertBool, (@?=) )
 import Text.Pandoc.Builder
-import Data.Monoid
 import System.FilePath.Posix (joinPath)
 
 tests :: [Test]
diff --git a/tests/Tests/Walk.hs b/tests/Tests/Walk.hs
index 34350e28a..c87cc17d7 100644
--- a/tests/Tests/Walk.hs
+++ b/tests/Tests/Walk.hs
@@ -8,7 +8,6 @@ import Tests.Helpers
 import Data.Char (toUpper)
 import Tests.Arbitrary()
 import Data.Generics
-import Data.Monoid
 
 tests :: [Test]
 tests = [ testGroup "Walk"
diff --git a/tests/Tests/Writers/AsciiDoc.hs b/tests/Tests/Writers/AsciiDoc.hs
index f9e6bd154..56a62c6e4 100644
--- a/tests/Tests/Writers/AsciiDoc.hs
+++ b/tests/Tests/Writers/AsciiDoc.hs
@@ -5,7 +5,6 @@ import Text.Pandoc.Builder
 import Text.Pandoc
 import Tests.Helpers
 import Tests.Arbitrary()
-import Data.Monoid
 
 asciidoc :: (ToString a, ToPandoc a) => a -> String
 asciidoc = writeAsciiDoc def{ writerWrapText = False } . toPandoc