From 962d9ccb5eb672ae355575f441c0a997f86d9314 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 16 Oct 2001 15:48:30 +0000
Subject: [PATCH] [project @ 2001-10-16 15:48:30 by simonmar] top-level
 constructor workers should have CCS_SUBSUMED, not NO_CCS.

---
 ghc/compiler/codeGen/CgConTbls.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/codeGen/CgConTbls.lhs b/ghc/compiler/codeGen/CgConTbls.lhs
index 5b862fd..ee5b37b 100644
--- a/ghc/compiler/codeGen/CgConTbls.lhs
+++ b/ghc/compiler/codeGen/CgConTbls.lhs
@@ -13,7 +13,7 @@ import StgSyn
 import CgMonad
 
 import AbsCUtils	( mkAbstractCs, mkAbsCStmts )
-import CostCentre	( noCCS )
+import CostCentre	( subsumedCCS )
 import CgCon		( cgTopRhsCon )
 import CgClosure	( cgTopRhsClosure )
 import CgTailCall	( performReturn, mkStaticAlgReturnCode )
@@ -184,7 +184,7 @@ cgWorker data_con
 
   | otherwise
   = cgTopRhsClosure work_id
-	    noCCS noBinderInfo NoSRT
+	    subsumedCCS noBinderInfo NoSRT
 	    arg_ids rhs
 	    lf_info
   where
-- 
1.7.10.4