[commit: base] master: Add <> as an alias for mappend (f4b7124)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f4b71242b05285a5b901123ad463f3aa74a472c7

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

commit f4b71242b05285a5b901123ad463f3aa74a472c7
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