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
|
b
|
|
| 87 | 87 | |
| 88 | 88 | mconcat = foldr mappend mempty |
| 89 | 89 | |
| | 90 | infixr 6 <> |
| | 91 | |
| | 92 | -- | An infix synonym for 'mappend'. |
| | 93 | (<>) :: Monoid m => m -> m -> m |
| | 94 | (<>) = mappend |
| | 95 | {-# INLINE (<>) #-} |
| | 96 | |
| 90 | 97 | -- Monoid instances. |
| 91 | 98 | |
| 92 | 99 | instance Monoid [a] where |
