[project @ 2001-09-20 12:15:41 by simonpj]

Remove dead code (no need to merge to stable branch)

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index d2be7f9..061273a 100644 (file)
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -62,7 +62,7 @@ module IdInfo (
        specInfo, setSpecInfo,
 
        -- CG info
-       CgInfo(..), cgInfo, setCgInfo,  cgMayHaveCafRefs, pprCgInfo,
+       CgInfo(..), cgInfo, setCgInfo,  pprCgInfo,
        cgArity, cgCafInfo, vanillaCgInfo,
        CgInfoEnv, lookupCgInfo,
        setCgArity,
@@ -592,8 +592,6 @@ setCgArity info arity =
   case cgInfo info of { CgInfo _ caf_info  -> 
        info `setCgInfo` CgInfo arity caf_info }
 
-cgMayHaveCafRefs (CgInfo _ caf_info) = mayHaveCafRefs caf_info
-
 seqCg c = c `seq` ()  -- fields are strict anyhow
 
 vanillaCgInfo = CgInfo 0 MayHaveCafRefs                -- Definitely safe