diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 15:55:51 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 15:55:51 +0000 |
| commit | 84427eabf041fd268e6cc659130b7ddbb73d13e5 (patch) | |
| tree | 30ded3d0e19937bf5202e5a401a42497e704ef2d /compiler/simplCore/CSE.lhs | |
| parent | a2331563d9c4c225340c755ff995858cc739d464 (diff) | |
| download | haskell-84427eabf041fd268e6cc659130b7ddbb73d13e5.tar.gz | |
(F)SLIT -> (f)sLit in CSE
Diffstat (limited to 'compiler/simplCore/CSE.lhs')
| -rw-r--r-- | compiler/simplCore/CSE.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/CSE.lhs b/compiler/simplCore/CSE.lhs index 38c1f58ee5..bf35f28ad9 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 |