From e58ae70175e979bc9f2977ede8b445055b7123e8 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 15:36:30 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in SimplMonad --- compiler/simplCore/SimplMonad.lhs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/compiler/simplCore/SimplMonad.lhs b/compiler/simplCore/SimplMonad.lhs index ea5ce12..4265efb 100644 --- a/compiler/simplCore/SimplMonad.lhs +++ b/compiler/simplCore/SimplMonad.lhs @@ -31,8 +31,6 @@ module SimplMonad ( isAmongSimpl, intSwitchSet, switchIsOn ) where -#include "HsVersions.h" - import Id ( Id, mkSysLocal ) import Type ( Type ) import FamInstEnv ( FamInstEnv ) @@ -254,15 +252,15 @@ plusSimplCount sc1@(SimplCount { ticks = tks1, details = dts1 }) plusSimplCount VerySimplZero VerySimplZero = VerySimplZero plusSimplCount sc1 sc2 = VerySimplNonZero -pprSimplCount VerySimplZero = ptext SLIT("Total ticks: ZERO!") -pprSimplCount VerySimplNonZero = ptext SLIT("Total ticks: NON-ZERO!") +pprSimplCount VerySimplZero = ptext (sLit "Total ticks: ZERO!") +pprSimplCount VerySimplNonZero = ptext (sLit "Total ticks: NON-ZERO!") pprSimplCount (SimplCount { ticks = tks, details = dts, log1 = l1, log2 = l2 }) - = vcat [ptext SLIT("Total ticks: ") <+> int tks, + = vcat [ptext (sLit "Total ticks: ") <+> int tks, text "", pprTickCounts (fmToList dts), if verboseSimplStats then vcat [text "", - ptext SLIT("Log (most recent first)"), + ptext (sLit "Log (most recent first)"), nest 4 (vcat (map ppr l1) $$ vcat (map ppr l2))] else empty ] -- 1.7.10.4