diff options
author | Moritz Angermann <moritz.angermann@gmail.com> | 2021-03-05 15:14:25 +0800 |
---|---|---|
committer | Viktor Dukhovni <ietf-dane@dukhovni.org> | 2021-03-18 15:10:06 -0400 |
commit | ad6531ac9d8f56773a37c3f8a3a70c75002adc3a (patch) | |
tree | bdd959a07f1c4c68c8f604810df6e596ca35406c | |
parent | c3c801e3c36d8d7dfaaabdc56c646abdeef1c64e (diff) | |
download | haskell-ad6531ac9d8f56773a37c3f8a3a70c75002adc3a.tar.gz |
[base] inline mconcat
partial backport of !4890
Forward-ported from 8.10 to 9.0 with the addition of a rationale comment
suggested and requested by spj.
-rw-r--r-- | libraries/base/GHC/Base.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libraries/base/GHC/Base.hs b/libraries/base/GHC/Base.hs index 8d0bbcfdac..f24ebd85bd 100644 --- a/libraries/base/GHC/Base.hs +++ b/libraries/base/GHC/Base.hs @@ -291,6 +291,8 @@ class Semigroup a => Monoid a where -- "Hello Haskell!" mconcat :: [a] -> a mconcat = foldr mappend mempty + {-# INLINE mconcat #-} + -- INLINE in the hope of fusion with mconcat's argument (see !4890) -- | @since 4.9.0.0 instance Semigroup [a] where |