From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 15:51:14 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in FloatOut
X-Git-Tag: 2008-05-28~240
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=400660fe4b6d0ec8c20ecc9d0a95dbb9ec5a5385

(F)SLIT -> (f)sLit in FloatOut
---

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 -}