Simon Peyton Jones pushed to branch wip/T27484 at Glasgow Haskell Compiler / GHC Commits: 93c79fd4 by Simon Peyton Jones at 2026-07-09T16:33:11+01:00 Wibble unused variables - - - - - 2 changed files: - compiler/GHC/Core.hs - compiler/GHC/Core/Opt/OccurAnal.hs Changes: ===================================== compiler/GHC/Core.hs ===================================== @@ -67,7 +67,7 @@ module GHC.Core ( isExpandableUnfolding, isConLikeUnfolding, isCompulsoryUnfolding, isStableUnfolding, isStableUserUnfolding, isStableSystemUnfolding, isInlineUnfolding, isBootUnfolding, isBetterUnfoldingThan, - hasCoreUnfolding, hasSomeUnfolding, + hasCoreUnfolding, hasSomeUnfolding, canUnfold, neverUnfoldGuidance, isStableSource, -- * Annotated expression data types ===================================== compiler/GHC/Core/Opt/OccurAnal.hs ===================================== @@ -37,7 +37,7 @@ import GHC.Prelude hiding ( head, init, last, tail ) import GHC.Core import GHC.Core.FVs -import GHC.Core.Utils ( exprIsTrivial, isDefaultAlt, isExpandableApp, +import GHC.Core.Utils ( exprIsTrivial, isExpandableApp, mkCastMCo, mkTicks, BinderSwapDecision(..), scrutOkForBinderSwap ) import GHC.Core.Opt.Arity ( joinRhsArity, isOneShotBndr ) import GHC.Core.Coercion @@ -3102,7 +3102,7 @@ noBinderSwaps :: OccEnv -> Bool noBinderSwaps (OccEnv { occ_bs_env = bs_env }) = isEmptyVarEnv bs_env setScrutCtxt :: OccEnv -> [CoreAlt] -> OccEnv -setScrutCtxt !env alts +setScrutCtxt !env _alts = setNonTailCtxt OccVanilla env {- Historical code: we used to say OccInteresting for case-scrutinees View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/93c79fd44daaf26575eb12dac6dd0fd6... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/93c79fd44daaf26575eb12dac6dd0fd6... You're receiving this email because of your account on gitlab.haskell.org.