From 3fc64886b53d4c0c6bd9731a04ed14a1d481d387 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 12:34:02 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in CostCentre --- compiler/profiling/CostCentre.lhs | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/compiler/profiling/CostCentre.lhs b/compiler/profiling/CostCentre.lhs index 5ccdaf8..4d13f10 100644 --- a/compiler/profiling/CostCentre.lhs +++ b/compiler/profiling/CostCentre.lhs @@ -36,8 +36,6 @@ module CostCentre ( cmpCostCentre -- used for removing dups in a list ) where -#include "HsVersions.h" - import Var ( Id ) import Name import Module ( Module ) @@ -333,15 +331,15 @@ non-constant C expression. \begin{code} instance Outputable CostCentreStack where - ppr NoCCS = ptext SLIT("NO_CCS") - ppr CurrentCCS = ptext SLIT("CCCS") - ppr OverheadCCS = ptext SLIT("CCS_OVERHEAD") - ppr DontCareCCS = ptext SLIT("CCS_DONT_CARE") - ppr SubsumedCCS = ptext SLIT("CCS_SUBSUMED") - ppr (PushCC cc NoCCS) = ppr cc <> ptext SLIT("_ccs") - ppr (PushCC cc ccs) = ptext SLIT("PushCostCentre") <> + ppr NoCCS = ptext (sLit "NO_CCS") + ppr CurrentCCS = ptext (sLit "CCCS") + ppr OverheadCCS = ptext (sLit "CCS_OVERHEAD") + ppr DontCareCCS = ptext (sLit "CCS_DONT_CARE") + ppr SubsumedCCS = ptext (sLit "CCS_SUBSUMED") + ppr (PushCC cc NoCCS) = ppr cc <> ptext (sLit "_ccs") + ppr (PushCC cc ccs) = ptext (sLit "PushCostCentre") <> parens (ppr ccs <> comma <> - parens(ptext SLIT("void *")) <> ppr cc) + parens(ptext (sLit "void *")) <> ppr cc) \end{code} ----------------------------------------------------------------------------- -- 1.7.10.4