From 3ebdc5b5f0f5bc88f727a36268d55921672899c0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 12 Aug 2013 16:21:24 -0700
Subject: Text.Pandoc.Compat.Monoid: Small improvements to the (<>) definition.

---
 src/Text/Pandoc/Compat/Monoid.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Text/Pandoc/Compat')

diff --git a/src/Text/Pandoc/Compat/Monoid.hs b/src/Text/Pandoc/Compat/Monoid.hs
index 80ffcbbd6..cb7ea2527 100644
--- a/src/Text/Pandoc/Compat/Monoid.hs
+++ b/src/Text/Pandoc/Compat/Monoid.hs
@@ -11,6 +11,10 @@ import Data.Monoid (mappend, Monoid(..))
 
 #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