[project @ 1997-03-14 07:52:06 by simonpj]

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

diff --git a/ghc/compiler/simplCore/SetLevels.lhs b/ghc/compiler/simplCore/SetLevels.lhs
index 2b61266..b6935c2 100644 (file)
--- a/ghc/compiler/simplCore/SetLevels.lhs
+++ b/ghc/compiler/simplCore/SetLevels.lhs
@@ -35,7 +35,7 @@ import Id             ( idType, mkSysLocal,
                          idSetToList,
                          lookupIdEnv, SYN_IE(IdEnv)
                        )
-import Pretty          ( ppStr, ppBesides, ppChar, ppInt )
+import Pretty          ( ppPStr, ppBesides, ppChar, ppInt )
 import SrcLoc          ( noSrcLoc )
 import Type            ( isPrimType, mkTyVarTys, mkForAllTys )
 import TyVar           ( nullTyVarEnv, addOneToTyVarEnv,
@@ -143,7 +143,7 @@ unTopify Top = Level 0 0
 unTopify lvl = lvl
 
 instance Outputable Level where
-  ppr sty Top            = ppStr "<Top>"
+  ppr sty Top            = ppPStr SLIT("<Top>")
   ppr sty (Level maj min) = ppBesides [ ppChar '<', ppInt maj, ppChar ',', ppInt min, ppChar '>' ]
 \end{code}