projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7e18dae
)
[project @ 1997-05-19 00:06:54 by sof]
author
sof
<unknown>
Mon, 19 May 1997 00:06:54 +0000
(
00:06
+0000)
committer
sof
<unknown>
Mon, 19 May 1997 00:06:54 +0000
(
00:06
+0000)
new PP
ghc/compiler/simplCore/SetLevels.lhs
patch
|
blob
|
history
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,
import Id ( idType, mkSysLocal,
nullIdEnv, addOneToIdEnv, growIdEnvList,
unionManyIdSets, minusIdSet, mkIdSet,
- idSetToList,
+ idSetToList, SYN_IE(Id),
lookupIdEnv, SYN_IE(IdEnv)
)
lookupIdEnv, SYN_IE(IdEnv)
)
-import Pretty ( ppPStr, ppBesides, ppChar, ppInt )
+import Pretty ( ptext, hcat, char, int )
import SrcLoc ( noSrcLoc )
import SrcLoc ( noSrcLoc )
-import Type ( isPrimType, mkTyVarTys, mkForAllTys )
+import Type ( isPrimType, mkTyVarTys, mkForAllTys, SYN_IE(Type) )
import TyVar ( nullTyVarEnv, addOneToTyVarEnv,
growTyVarEnvList, lookupTyVarEnv,
tyVarSetToList,
import TyVar ( nullTyVarEnv, addOneToTyVarEnv,
growTyVarEnvList, lookupTyVarEnv,
tyVarSetToList,
- SYN_IE(TyVarEnv),
+ SYN_IE(TyVarEnv), SYN_IE(TyVar),
unionManyTyVarSets
)
import UniqSupply ( thenUs, returnUs, mapUs, mapAndUnzipUs,
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 )
)
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}
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
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}
%************************************************************************
\end{code}
%************************************************************************