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

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

    From f400547e8862d9235370740e14bc42b2a6444199 Mon Sep 17 00:00:00 2001
    From: Johan Tibell <[email protected]>
    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