From e7da4419b8c2ad5d34cc51f2e7a32474e08bdc5c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 19 May 1997 00:06:54 +0000
Subject: [PATCH] [project @ 1997-05-19 00:06:54 by sof] new PP
---
ghc/compiler/simplCore/SetLevels.lhs | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/ghc/compiler/simplCore/SetLevels.lhs b/ghc/compiler/simplCore/SetLevels.lhs
index b6935c201360..4328488066ab 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}
%************************************************************************
--
GitLab