[commit: base] ghc-7.4: Add <> as an alias for mappend (556d174)

[Johan Tibell]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : ghc-7.4

http://hackage.haskell.org/trac/ghc/changeset/556d174a555b993176e6766017b984e7a096a327

>---------------------------------------------------------------

commit 556d174a555b993176e6766017b984e7a096a327
Author: Johan Tibell <johan.tibell at gmail.com>
Date:   Tue Aug 16 11:40:34 2011 +0200

    Add <> as an alias for mappend

>---------------------------------------------------------------

 Data/Monoid.hs |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/Data/Monoid.hs b/Data/Monoid.hs
index 228e254..bb3c4ec 100644
--- a/Data/Monoid.hs
+++ b/Data/Monoid.hs
@@ -20,6 +20,7 @@
 module Data.Monoid (
         -- * Monoid typeclass
         Monoid(..),
+        (<>),
         Dual(..),
         Endo(..),
         -- * Bool wrappers
@@ -88,6 +89,13 @@ class Monoid a where
 
         mconcat = foldr mappend mempty
 
+infixr 6 <>
+
+-- | An infix synonym for 'mappend'.
+(<>) :: Monoid m => m -> m -> m
+(<>) = mappend
+{-# INLINE (<>) #-}
+
 -- Monoid instances.
 
 instance Monoid [a] where