From b16004bfb21ae736d84a38f57a5df18c46d4fe2e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 20 Sep 2001 12:15:41 +0000
Subject: [PATCH] [project @ 2001-09-20 12:15:41 by simonpj] Remove dead code
 (no need to merge to stable branch)

---
 ghc/compiler/basicTypes/IdInfo.lhs |    4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index d2be7f9..061273a 100644
--- 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
-- 
1.7.10.4