diff options
Diffstat (limited to 'compiler/GHC/Core/Opt/Arity.hs')
| -rw-r--r-- | compiler/GHC/Core/Opt/Arity.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/Arity.hs b/compiler/GHC/Core/Opt/Arity.hs index 67b5353d71..ff9a6eff45 100644 --- a/compiler/GHC/Core/Opt/Arity.hs +++ b/compiler/GHC/Core/Opt/Arity.hs @@ -1895,8 +1895,7 @@ This turned up in #7542. tryEtaReduce :: [Var] -> CoreExpr -> Maybe CoreExpr tryEtaReduce bndrs body - = let res = go (reverse bndrs) body refl_co - in pprTrace "tryEtaReduce" (ppr bndrs $$ ppr body $$ ppr res) res + = go (reverse bndrs) body refl_co where refl_co = mkRepReflCo (exprType body) incoming_arity = count isId bndrs |