Shorten debug messages

[ghc-hetmet.git] / compiler / simplCore / CSE.lhs

diff --git a/compiler/simplCore/CSE.lhs b/compiler/simplCore/CSE.lhs
index 93b0b8d..bf35f28 100644 (file)
--- 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