diff options
| author | James Foster <jf16688@my.bristol.ac.uk> | 2021-03-14 18:38:23 -0400 |
|---|---|---|
| committer | Viktor Dukhovni <ietf-dane@dukhovni.org> | 2021-04-07 14:17:31 -0400 |
| commit | 88d8a0ed387cef8ee45aa3c1b3bc22d5d9d5e51a (patch) | |
| tree | 6ea387160e547a510ee6bd96016dd546398e6f97 /compiler | |
| parent | d014ab0db0c167ab5a0f9cb15280aee6fd8f3621 (diff) | |
| download | haskell-88d8a0ed387cef8ee45aa3c1b3bc22d5d9d5e51a.tar.gz | |
Change foldl' to inline when partially applied (#19534)
And though partially applied foldl' is now again inlined, #4301 has not
resurfaced, and appears to be resolved.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/Core/Opt/Simplify/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Opt/Simplify/Utils.hs b/compiler/GHC/Core/Opt/Simplify/Utils.hs index 7b22c7881d..e66c88ac7a 100644 --- a/compiler/GHC/Core/Opt/Simplify/Utils.hs +++ b/compiler/GHC/Core/Opt/Simplify/Utils.hs @@ -1757,7 +1757,7 @@ and can lead to a massive blow-up in code size, exhibited by #9020. Suppose we have a PAP foo :: IO () foo = returnIO () -Then we can eta-expand do +Then we can eta-expand to foo = (\eta. (returnIO () |> sym g) eta) |> g where g :: IO () ~ State# RealWorld -> (# State# RealWorld, () #) |