[Git][ghc/ghc][wip/T24251] Wibble

[Simon Peyton Jones (@simonpj)]

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


Commits:
086e20d4 by Simon Peyton Jones at 2024-01-15T17:20:43+00:00
Wibble

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/Core/Opt/Simplify/Utils.hs
=====================================
@@ -2608,7 +2608,7 @@ tryMergeCase outer_bndr (Alt DEFAULT _ deflt_rhs : outer_alts)
 
     go n wrap free_bndrs (Tick t rhs)
        = go n (wrap . Tick t) free_bndrs rhs
-    go n wrap free_bndrs (Case (Var inner_scrut_var) inner_bndr _ inner_alts)
+    go _ wrap free_bndrs (Case (Var inner_scrut_var) inner_bndr _ inner_alts)
        | inner_scrut_var == outer_bndr
        , let wrap_let rhs' | isDeadBinder inner_bndr = rhs'
                            | otherwise = Let (NonRec inner_bndr (Var outer_bndr)) rhs'



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/086e20d4f8a2346228fc76b949cccdf1f1d6d156
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/20240115/f8db40bd/attachment.html>