[Git][ghc/ghc][wip/simplifier-tweaks] Wibble

[Simon Peyton Jones (@simonpj)]

Simon Peyton Jones pushed to branch wip/simplifier-tweaks at Glasgow Haskell Compiler / GHC


Commits:
53464f9f by Simon Peyton Jones at 2023-08-02T21:27:31+01:00
Wibble

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/Core/Opt/Simplify/Iteration.hs
=====================================
@@ -43,7 +43,7 @@ import GHC.Core.Opt.Arity ( ArityType, exprArity, arityTypeBotSigs_maybe
                           , pushCoTyArg, pushCoValArg, exprIsDeadEnd
                           , typeArity, arityTypeArity, etaExpandAT )
 import GHC.Core.SimpleOpt ( exprIsConApp_maybe, joinPointBinding_maybe, joinPointBindings_maybe )
-import GHC.Core.FVs     ( mkRuleInfo, exprsFreeIds )
+import GHC.Core.FVs     ( mkRuleInfo {- exprsFreeIds -} )
 import GHC.Core.Rules   ( lookupRule, getRules )
 import GHC.Core.Multiplicity
 
@@ -3978,8 +3978,8 @@ ok_to_dup_alt case_bndr alt_bndrs alt_rhs
 
   | otherwise
   = False
-  where
-    bndr_set = mkVarSet (case_bndr : alt_bndrs)
+--  where
+--    bndr_set = mkVarSet (case_bndr : alt_bndrs)
 
 {-
 Note [Do not add unfoldings to join points at birth]



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/53464f9f978bc01e3d43c39f2cd56047a3b020ae
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/20230802/7cf01dc9/attachment-0001.html>