From 1cdebe1170cbf8ea57496cef13fd961c7f8cec54 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Wed, 31 Aug 2016 14:04:42 -0400
Subject: Remove an inline monad compatibility macro.

---
 src/Text/Pandoc/Pretty.hs | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs
index a0078037d..0bac628af 100644
--- a/src/Text/Pandoc/Pretty.hs
+++ b/src/Text/Pandoc/Pretty.hs
@@ -126,18 +126,6 @@ isEmpty = null . toList . unDoc
 empty :: Doc
 empty = mempty
 
-#if MIN_VERSION_base(4,5,0)
--- (<>) is defined in Data.Monoid
-#else
-infixr 6 <>
-
--- | An infix synonym for 'mappend'.
--- @a <> b@ is the result of concatenating @a@ with @b@.
-(<>) :: Monoid m => m -> m -> m
-(<>) = mappend
-{-# INLINE (<>) #-}
-#endif
-
 -- | Concatenate a list of 'Doc's.
 cat :: [Doc] -> Doc
 cat = mconcat
-- 
cgit v1.2.3