diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-08-12 16:21:24 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-08-12 16:21:24 -0700 |
| commit | 3ebdc5b5f0f5bc88f727a36268d55921672899c0 (patch) | |
| tree | 0a4a1a4dcdee923d15fbab7f2800ab7601eace1a /src/Text/Pandoc/Compat | |
| parent | 544d0bbf316e809271cdc64bc2946397c5eff547 (diff) | |
| download | pandoc-3ebdc5b5f0f5bc88f727a36268d55921672899c0.tar.gz | |
Text.Pandoc.Compat.Monoid: Small improvements to the (<>) definition.
Diffstat (limited to 'src/Text/Pandoc/Compat')
| -rw-r--r-- | src/Text/Pandoc/Compat/Monoid.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Compat/Monoid.hs b/src/Text/Pandoc/Compat/Monoid.hs index 80ffcbbd6..cb7ea2527 100644 --- a/src/Text/Pandoc/Compat/Monoid.hs +++ b/src/Text/Pandoc/Compat/Monoid.hs @@ -11,6 +11,10 @@ import Data.Monoid (mappend, Monoid(..)) #if MIN_VERSION_base(4,5,0) #else +infixr 6 <> + +-- | An infix synonym for 'mappend'. (<>) :: Monoid m => m -> m -> m (<>) = mappend +{-# INLINE (<>) #-} #endif |