From: simonmar <unknown>
Date: Mon, 3 Apr 2000 15:55:26 +0000 (+0000)
Subject: [project @ 2000-04-03 15:55:26 by simonmar]
X-Git-Tag: Approximately_9120_patches~4853
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=919cb0bdd08e813aa6c3ce6518569fe79d100c3a;p=ghc-hetmet.git

[project @ 2000-04-03 15:55:26 by simonmar]
misc cleanups
---

diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index 9770ecb..02d732b 100644
--- a/ghc/compiler/profiling/CostCentre.lhs
+++ b/ghc/compiler/profiling/CostCentre.lhs
@@ -291,19 +291,15 @@ instance Outputable CostCentreStack where
 		NoCCS		-> ptext SLIT("NO_CCS")
 		CurrentCCS	-> ptext SLIT("CCCS")
 		OverheadCCS	-> ptext SLIT("CCS_OVERHEAD")
-		DontCareCCS	-> ptext SLIT("CCS_DONTZuCARE")
+		DontCareCCS	-> ptext SLIT("CCS_DONT_CARE")
 		SubsumedCCS	-> ptext SLIT("CCS_SUBSUMED")
 		SingletonCCS cc -> ppr cc <> ptext SLIT("_ccs")
 
 pprCostCentreStackDecl :: CostCentreStack -> SDoc
 pprCostCentreStackDecl ccs@(SingletonCCS cc)
-  = let
-       is_subsumed = ccSubsumed cc
-    in
-    hcat [ ptext SLIT("CCS_DECLARE"), char '(',
+  = hcat [ ptext SLIT("CCS_DECLARE"), char '(',
     	   ppr ccs,	 	comma,	-- better be codeStyle
     	   ppCostCentreLbl cc, 	comma,
-    	   ptext is_subsumed, 	comma,
 	   empty,	-- Now always externally visible
     	   text ");"
 	 ]