diff options
| author | Moritz Angermann <moritz.angermann@gmail.com> | 2021-03-05 15:14:25 +0800 |
|---|---|---|
| committer | Moritz Angermann <moritz.angermann@gmail.com> | 2021-03-07 22:19:23 +0800 |
| commit | 045777de53551245c0635e66616b60bf099e2610 (patch) | |
| tree | 53ad83a2b9c65b9a0057d291bdedab940faf59dc | |
| parent | c3944bc89d062a4850946904133c7a1464d59012 (diff) | |
| download | haskell-045777de53551245c0635e66616b60bf099e2610.tar.gz | |
[base] inline mconcat
partial backport of !4890
| -rw-r--r-- | libraries/base/GHC/Base.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libraries/base/GHC/Base.hs b/libraries/base/GHC/Base.hs index fa702b9578..cd0c7e2c15 100644 --- a/libraries/base/GHC/Base.hs +++ b/libraries/base/GHC/Base.hs @@ -300,6 +300,7 @@ class Semigroup a => Monoid a where -- >>> mconcat ["Hello", " ", "Haskell", "!"] -- "Hello Haskell!" mconcat :: [a] -> a + {-# INLINE mconcat #-} mconcat = foldr mappend mempty -- | @since 4.9.0.0 |