[Git][ghc/ghc][wip/T22886] Wibble

[Simon Peyton Jones (@simonpj)]

Simon Peyton Jones pushed to branch wip/T22886 at Glasgow Haskell Compiler / GHC


Commits:
dd742db0 by Simon Peyton Jones at 2023-03-03T19:47:49+00:00
Wibble

- - - - -


1 changed file:

- compiler/GHC/Core/Opt/Simplify/Utils.hs


Changes:

=====================================
compiler/GHC/Core/Opt/Simplify/Utils.hs
=====================================
@@ -1859,8 +1859,7 @@ tryEtaExpandRhs :: SimplEnv -> BindContext -> OutId -> OutExpr
                 -> SimplM (ArityType, OutExpr)
 -- See Note [Eta-expanding at let bindings]
 tryEtaExpandRhs env bind_cxt bndr rhs
-  | pprTrace "tryeta" (ppr bndr $$ ppr do_eta_expand $$ ppr (seEtaExpand env) $$ ppr (wantEtaExpansion rhs)) $
-    do_eta_expand           -- If the current manifest arity isn't enough
+  | do_eta_expand           -- If the current manifest arity isn't enough
                             --    (never true for join points)
   , seEtaExpand env         -- and eta-expansion is on
   , wantEtaExpansion rhs
@@ -1894,8 +1893,7 @@ wantEtaExpansion e = go e []
     go (Lam b e)  [] | isTyVar b = go e []
                      | otherwise = True
 
-    go (Var f) args = pprTrace "wantEtaExpansion" (ppr f $$ ppr args $$ ppr (isInlineUnfolding (idUnfolding f)) $$ ppr (any interesting args)) $
-                      isInlineUnfolding (idUnfolding f)
+    go (Var f) args = isInlineUnfolding (idUnfolding f)
                       && any interesting args
 
     go _ _ = True



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/dd742db0e091bd9e9bd235b047a3e1cfb8c592d0

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/dd742db0e091bd9e9bd235b047a3e1cfb8c592d0
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230303/e5efda80/attachment-0001.html>