-- ** The OccInfo type
OccInfo(..),
- isFragileOcc, isDeadOcc, isLoopBreaker,
+ isDeadOcc, isLoopBreaker,
occInfo, setOccInfo,
InsideLam, OneBranch,
zapFragileInfo info
= Just (info `setSpecInfo` emptySpecInfo
`setUnfoldingInfo` noUnfolding
- `setOccInfo` if isFragileOcc occ then NoOccInfo else occ)
+ `setOccInfo` zapFragileOcc occ)
where
occ = occInfo info
\end{code}