From 84427eabf041fd268e6cc659130b7ddbb73d13e5 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 15:55:51 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in CSE --- compiler/simplCore/CSE.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4