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

diff --git a/compiler/simplCore/CSE.lhs b/compiler/simplCore/CSE.lhs
index 38c1f58..bf35f28 100644
--- a/compiler/simplCore/CSE.lhs
+++ b/compiler/simplCore/CSE.lhs
@@ -329,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