Simon Peyton Jones pushed to branch wip/spj-try-opt-coercion at Glasgow Haskell Compiler / GHC
Commits:
-
cd277d10
by Simon Peyton Jones at 2026-01-05T09:36:53+00:00
1 changed file:
Changes:
| ... | ... | @@ -647,6 +647,7 @@ idUnfoldingFVs id = stableUnfoldingFVs (realIdUnfolding id) `orElse` emptyFV |
| 647 | 647 | stableUnfoldingVars :: Unfolding -> Maybe VarSet
|
| 648 | 648 | stableUnfoldingVars unf = fvVarSet `fmap` stableUnfoldingFVs unf
|
| 649 | 649 | |
| 650 | +stableUnfoldingFVs :: Unfolding -> Maybe FV
|
|
| 650 | 651 | stableUnfoldingFVs unf
|
| 651 | 652 | | isStableUnfolding unf = Just (unfoldingFVs unf)
|
| 652 | 653 | | otherwise = Nothing
|