[project @ 1997-05-19 00:06:54 by sof]

new PP

diff --git a/ghc/compiler/simplCore/SetLevels.lhs b/ghc/compiler/simplCore/SetLevels.lhs
index b6935c2..4328488 100644 (file)
--- a/ghc/compiler/simplCore/SetLevels.lhs
+++ b/ghc/compiler/simplCore/SetLevels.lhs
@@ -32,16 +32,16 @@ import FreeVars             -- all of it
 import Id              ( idType, mkSysLocal, 
                          nullIdEnv, addOneToIdEnv, growIdEnvList,
                          unionManyIdSets, minusIdSet, mkIdSet,
-                         idSetToList,
+                         idSetToList, SYN_IE(Id),
                          lookupIdEnv, SYN_IE(IdEnv)
                        )
-import Pretty          ( ppPStr, ppBesides, ppChar, ppInt )
+import Pretty          ( ptext, hcat, char, int )
 import SrcLoc          ( noSrcLoc )
-import Type            ( isPrimType, mkTyVarTys, mkForAllTys )
+import Type            ( isPrimType, mkTyVarTys, mkForAllTys, SYN_IE(Type) )
 import TyVar           ( nullTyVarEnv, addOneToTyVarEnv,
                          growTyVarEnvList, lookupTyVarEnv,
                          tyVarSetToList,
-                         SYN_IE(TyVarEnv),
+                         SYN_IE(TyVarEnv), SYN_IE(TyVar),
                          unionManyTyVarSets
                        )
 import UniqSupply      ( thenUs, returnUs, mapUs, mapAndUnzipUs,
@@ -50,6 +50,9 @@ import UniqSupply     ( thenUs, returnUs, mapUs, mapAndUnzipUs,
                        )
 import Usage           ( SYN_IE(UVar) )
 import Util            ( mapAccumL, zipWithEqual, zipEqual, panic, assertPanic )
+#if __GLASGOW_HASKELL__ >= 202
+import Outputable       ( Outputable(..) )
+#endif
 
 isLeakFreeType x y = False -- safe option; ToDo
 \end{code}
@@ -143,8 +146,8 @@ unTopify Top = Level 0 0
 unTopify lvl = lvl
 
 instance Outputable Level where
-  ppr sty Top            = ppPStr SLIT("<Top>")
-  ppr sty (Level maj min) = ppBesides [ ppChar '<', ppInt maj, ppChar ',', ppInt min, ppChar '>' ]
+  ppr sty Top            = ptext SLIT("<Top>")
+  ppr sty (Level maj min) = hcat [ char '<', int maj, char ',', int min, char '>' ]
 \end{code}
 
 %************************************************************************