[Git][ghc/ghc][wip/arity-type-9.4] Fix arityType

[Zubin (@wz1000)]

Zubin pushed to branch wip/arity-type-9.4 at Glasgow Haskell Compiler / GHC


Commits:
f5c827fa by Zubin Duggal at 2022-11-01T12:50:42+05:30
Fix arityType

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/Core/Opt/Arity.hs
=====================================
@@ -1185,15 +1185,6 @@ arityType env (Let (NonRec b r) e)
     cheap_rhs = myExprIsCheap env r (Just (idType b))
     env'      = extendSigEnv env b (arityType env r)
 
-arityType env (Let (Rec pairs) body)
-  | ((j,_):_) <- pairs
-  , isJoinId j
-  = -- See Note [arityType for join bindings]
-    arityType rec_env body
-  where
-    rec_env = foldl add_bot env pairs
-    add_bot env (j,_) = extendSigEnv env j botArityType
-
 arityType env (Let (Rec prs) e)
   = floatIn (all is_cheap prs) (arityType env' e)
   where



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/f5c827fa3958fac73d520f3b1a7dddb97c8a23b9
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/20221101/e571e333/attachment.html>