diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 12:34:02 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 12:34:02 +0000 |
| commit | 3fc64886b53d4c0c6bd9731a04ed14a1d481d387 (patch) | |
| tree | b7e7848438994cafbe4d99f6c04eed4edd67f64c /compiler/profiling | |
| parent | 953255b0c5570904b8acb46b29a07c066a07efaf (diff) | |
| download | haskell-3fc64886b53d4c0c6bd9731a04ed14a1d481d387.tar.gz | |
(F)SLIT -> (f)sLit in CostCentre
Diffstat (limited to 'compiler/profiling')
| -rw-r--r-- | compiler/profiling/CostCentre.lhs | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/compiler/profiling/CostCentre.lhs b/compiler/profiling/CostCentre.lhs index 5ccdaf86e2..4d13f102d2 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} ----------------------------------------------------------------------------- |