From f400547e8862d9235370740e14bc42b2a6444199 Mon Sep 17 00:00:00 2001
From: Johan Tibell <johan.tibell@gmail.com>
Date: Tue, 16 Aug 2011 11:40:34 +0200
Subject: [PATCH 1/1] Add <> as an alias for mappend

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

diff --git a/Data/Monoid.hs b/Data/Monoid.hs
index beac4f7..139a54d 100644
--- a/Data/Monoid.hs
+++ b/Data/Monoid.hs
@@ -87,6 +87,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
-- 
1.7.3.1