From 919cb0bdd08e813aa6c3ce6518569fe79d100c3a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 3 Apr 2000 15:55:26 +0000
Subject: [PATCH] [project @ 2000-04-03 15:55:26 by simonmar] misc cleanups
---
ghc/compiler/profiling/CostCentre.lhs | 8 ++------
1 file changed, 2 insertions(+), 6 deletions(-)
diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index 9770ecbfc2d8..02d732b3dbbb 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 ");"
]
--
GitLab