X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FCSE.lhs;h=bf35f28ad92efaf60ecaf85f4e7a9876131e30d0;hb=526c3af1dc98987b6949f4df73c0debccf9875bd;hp=93b0b8dd6044245808996d66d7bed9c7646b1a69;hpb=ac4a2563ee5b8d6bb9d0a366fe0ff3ed3fde4bb2;p=ghc-hetmet.git

diff --git a/compiler/simplCore/CSE.lhs b/compiler/simplCore/CSE.lhs
index 93b0b8d..bf35f28 100644
--- a/compiler/simplCore/CSE.lhs
+++ b/compiler/simplCore/CSE.lhs
@@ -23,6 +23,7 @@ import StaticFlags	( opt_PprStyle_Debug )
 import BasicTypes	( isAlwaysActive )
 import Util		( lengthExceeds )
 import UniqFM
+import FastString
 
 import Data.List
 \end{code}
@@ -328,7 +329,7 @@ extendCSEnv (CS cs in_scope sub) expr expr'
 	= WARN( result `lengthExceeds` 4, short_msg $$ nest 2 long_msg ) result
 	where
 	  result = new ++ old
-	  short_msg = ptext SLIT("extendCSEnv: long list, length") <+> int (length result)
+	  short_msg = ptext (sLit "extendCSEnv: long list, length") <+> int (length result)
 	  long_msg | opt_PprStyle_Debug = (text "hash code" <+> text (show hash)) $$ ppr result 
 		   | otherwise	        = empty