diff options
Diffstat (limited to 'compiler/GHC/Types/Id/Info.hs')
-rw-r--r-- | compiler/GHC/Types/Id/Info.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/GHC/Types/Id/Info.hs b/compiler/GHC/Types/Id/Info.hs index 5849b8c283..027c162198 100644 --- a/compiler/GHC/Types/Id/Info.hs +++ b/compiler/GHC/Types/Id/Info.hs @@ -670,6 +670,8 @@ zapFragileInfo info@(IdInfo { occInfo = occ, unfoldingInfo = unf }) new_unf = zapFragileUnfolding unf zapFragileUnfolding :: Unfolding -> Unfolding +-- ^ Zaps any core unfolding, but /preserves/ evaluated-ness, +-- i.e. an unfolding of OtherCon zapFragileUnfolding unf | hasCoreUnfolding unf = noUnfolding | otherwise = unf |