From: sof <unknown>
Date: Mon, 19 May 1997 00:06:54 +0000 (+0000)
Subject: [project @ 1997-05-19 00:06:54 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~599
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e7da4419b8c2ad5d34cc51f2e7a32474e08bdc5c;p=ghc-hetmet.git

[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
--- 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}
 
 %************************************************************************