summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Compat/Monoid.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Compat/Monoid.hs')
-rw-r--r--src/Text/Pandoc/Compat/Monoid.hs15
1 files changed, 6 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Compat/Monoid.hs b/src/Text/Pandoc/Compat/Monoid.hs
index cb7ea2527..4daceb8e1 100644
--- a/src/Text/Pandoc/Compat/Monoid.hs
+++ b/src/Text/Pandoc/Compat/Monoid.hs
@@ -1,19 +1,16 @@
{-# LANGUAGE CPP #-}
-module Text.Pandoc.Compat.Monoid ( Monoid(..)
- , (<>)
- ) where
+module Text.Pandoc.Compat.Monoid ( (<>) )
+ where
#if MIN_VERSION_base(4,5,0)
-import Data.Monoid ((<>), Monoid(..))
-#else
-import Data.Monoid (mappend, Monoid(..))
-#endif
+import Data.Monoid ((<>))
-#if MIN_VERSION_base(4,5,0)
#else
+import Data.Monoid
+
infixr 6 <>
--- | An infix synonym for 'mappend'.
+--- | An infix synonym for 'mappend'.
(<>) :: Monoid m => m -> m -> m
(<>) = mappend
{-# INLINE (<>) #-}