[Git][ghc/ghc][wip/T25033] Wibble unused veriable

[Simon Peyton Jones (@simonpj)]

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


Commits:
92fa7807 by Simon Peyton Jones at 2024-07-03T21:20:35+01:00
Wibble unused veriable

- - - - -


1 changed file:

- compiler/GHC/CoreToStg/Prep.hs


Changes:

=====================================
compiler/GHC/CoreToStg/Prep.hs
=====================================
@@ -1624,7 +1624,7 @@ eta_would_wreck_join :: CoreExpr -> Bool
 -- ^ Identify the cases where we'd generate invalid `CpeApp`s as described in
 -- Wrinkle (EA1) of Note [Eta expansion of arguments in CorePrep]
 eta_would_wreck_join (Let bs e)        = isJoinBind bs || eta_would_wreck_join e
-eta_would_wreck_join (Lam b e)         = eta_would_wreck_join e
+eta_would_wreck_join (Lam _ e)         = eta_would_wreck_join e
 eta_would_wreck_join (Cast e _)        = eta_would_wreck_join e
 eta_would_wreck_join (Tick _ e)        = eta_would_wreck_join e
 eta_would_wreck_join (Case _ _ _ alts) = any eta_would_wreck_join (rhssOfAlts alts)



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

-- 
This project does not include diff previews in email notifications.
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/92fa7807a84349a458360dc71d8f9efa16222a93
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/20240703/7d4f7c33/attachment-0001.html>