From 400660fe4b6d0ec8c20ecc9d0a95dbb9ec5a5385 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 15:51:14 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in FloatOut --- compiler/simplCore/FloatOut.lhs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/compiler/simplCore/FloatOut.lhs b/compiler/simplCore/FloatOut.lhs index bbf6f0a..d0a27de 100644 --- a/compiler/simplCore/FloatOut.lhs +++ b/compiler/simplCore/FloatOut.lhs @@ -15,8 +15,6 @@ module FloatOut ( floatOutwards ) where -#include "HsVersions.h" - import CoreSyn import CoreUtils @@ -137,9 +135,9 @@ floatOutwards float_sws dflags us pgm let { (tlets, ntlets, lams) = get_stats (sum_stats fss) }; dumpIfSet_dyn dflags Opt_D_dump_simpl_stats "FloatOut stats:" - (hcat [ int tlets, ptext SLIT(" Lets floated to top level; "), - int ntlets, ptext SLIT(" Lets floated elsewhere; from "), - int lams, ptext SLIT(" Lambda groups")]); + (hcat [ int tlets, ptext (sLit " Lets floated to top level; "), + int ntlets, ptext (sLit " Lets floated elsewhere; from "), + int lams, ptext (sLit " Lambda groups")]); endPass dflags float_msg Opt_D_verbose_core2core (concat binds_s') {- no specific flag for dumping float-out -} -- 1.7.10.4