[Git][ghc/ghc][wip/T21694a] Crucial wibble

[Simon Peyton Jones (@simonpj)]

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


Commits:
ecd80bb3 by Simon Peyton Jones at 2022-08-20T00:36:43+01:00
Crucial wibble

- - - - -


1 changed file:

- compiler/GHC/Core/Opt/Arity.hs


Changes:

=====================================
compiler/GHC/Core/Opt/Arity.hs
=====================================
@@ -1457,7 +1457,7 @@ cheapArityType e = go e
     go (Cast e _)               = go e
     go (Lam x e)  | isId x      = arityLam x (go e)
                   | otherwise   = go e
-    go (App f a)  | isTypeArg a = go f
+    go (App e a)  | isTypeArg a = go e
                   | otherwise   = arity_app a (go e)
 
     go (Tick t e) | not (tickishIsCode t) = go e



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/ecd80bb34aeb7fa15cd7892aae69a7a374005302
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/20220819/d8d238cf/attachment.html>