Ticket #3339: 0001-Add-as-an-alias-for-mappend.patch

File 0001-Add-as-an-alias-for-mappend.patch, 682 bytes (added by tibbe, 3 years ago)
  • Data/Monoid.hs

    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 class Monoid a where 
    8787 
    8888        mconcat = foldr mappend mempty 
    8989 
     90infixr 6 <> 
     91 
     92-- | An infix synonym for 'mappend'. 
     93(<>) :: Monoid m => m -> m -> m 
     94(<>) = mappend 
     95{-# INLINE (<>) #-} 
     96 
    9097-- Monoid instances. 
    9198 
    9299instance Monoid [a] where