X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FIdInfo.lhs;h=9b74a487f0e663191ceac67a15013808186a80b6;hp=9446f7d1e406d7747161d96978b43d25d2813b3e;hb=6a944ae7fe1e8e2e456c68717188463263f8978f;hpb=c93e8323ab49dd369e8b5f04027462a6fc1b8249

diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs
index 9446f7d..9b74a48 100644
--- a/compiler/basicTypes/IdInfo.lhs
+++ b/compiler/basicTypes/IdInfo.lhs
@@ -58,7 +58,7 @@ module IdInfo (
 
 	-- ** The OccInfo type
 	OccInfo(..),
-	isFragileOcc, isDeadOcc, isLoopBreaker,
+	isDeadOcc, isLoopBreaker,
 	occInfo, setOccInfo,
 
 	InsideLam, OneBranch,
@@ -723,7 +723,7 @@ zapFragileInfo :: IdInfo -> Maybe IdInfo
 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}