[Git][ghc/ghc][wip/T22423] Wibble

[Simon Peyton Jones (@simonpj)]

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


Commits:
dea92489 by Simon Peyton Jones at 2024-03-06T12:11:46+00:00
Wibble

- - - - -


1 changed file:

- compiler/GHC/Core/Utils.hs


Changes:

=====================================
compiler/GHC/Core/Utils.hs
=====================================
@@ -1350,7 +1350,7 @@ exprIsWorkFree e = ok e
     go _ (Type {})                    = True
     go _ (Coercion {})                = True
     go n (Cast e _)                   = go n e
-    go n (Case scrut _ _ alts)        = ok_alts alts && ok scrut
+    go _ (Case scrut _ _ alts)        = ok_alts alts && ok scrut
     go n (Tick t e) | tickishCounts t = False
                     | otherwise       = go n e
     go n (Lam x e)  | isRuntimeVar x  = n==0 || go (n-1) e



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/dea9248975c4943e1554dc2f268a3d492bfe32ba
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/20240306/5e0b2cc3/attachment.html>