Simon Peyton Jones pushed to branch wip/26543 at Glasgow Haskell Compiler / GHC Commits: e924574f by Simon Peyton Jones at 2025-12-13T17:30:50+00:00 Fix sense of needs-case-binding - - - - - 1 changed file: - compiler/GHC/Core/Opt/Simplify/Utils.hs Changes: ===================================== compiler/GHC/Core/Opt/Simplify/Utils.hs ===================================== @@ -1551,10 +1551,10 @@ preInlineBetaUnconditionally env levity bndr clo -- NB: exprOkForSpeculation is stable under substitution -- so we can apply it to an InExpr in the ContEx case needs_case_binding Lifted = False - needs_case_binding Unlifted = case clo of - DoneId {} -> False - DoneEx e _ -> exprOkForSpeculation e - ContEx _ e _ -> exprOkForSpeculation e + needs_case_binding Unlifted = case clo of + DoneId {} -> False + DoneEx e _ -> not $ exprOkForSpeculation e + ContEx _ e _ -> not $ exprOkForSpeculation e preInlineLetUnconditionally :: SimplEnv -> TopLevelFlag -> InId View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e924574fcb51e6aa4cb39b1027b26ff3... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e924574fcb51e6aa4cb39b1027b26ff3... You're receiving this email because of your account on gitlab.haskell.org.