projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-03-23 17:45:17 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
basicTypes
/
PprEnv.lhs
diff --git
a/ghc/compiler/basicTypes/PprEnv.lhs
b/ghc/compiler/basicTypes/PprEnv.lhs
index
ed06d2c
..
a2df826
100644
(file)
--- a/
ghc/compiler/basicTypes/PprEnv.lhs
+++ b/
ghc/compiler/basicTypes/PprEnv.lhs
@@
-10,13
+10,13
@@
module PprEnv (
initPprEnv,
initPprEnv,
- pCon, pBndr, pOcc, pSCC,
+ pBndr, pOcc, pSCC,
pTy, pTyVarO
) where
#include "HsVersions.h"
pTy, pTyVarO
) where
#include "HsVersions.h"
-import {-# SOURCE #-} Const ( Con )
+import {-# SOURCE #-} DataCon ( DataCon )
import Var ( Id, TyVar )
import CostCentre ( CostCentre )
import Var ( Id, TyVar )
import CostCentre ( CostCentre )
@@
-33,7
+33,6
@@
import Outputable
\begin{code}
data PprEnv bndr
= PE {
\begin{code}
data PprEnv bndr
= PE {
- pCon :: Con -> SDoc,
pSCC :: CostCentre -> SDoc,
pTyVarO :: TyVar -> SDoc, -- to print tyvar occurrences
pSCC :: CostCentre -> SDoc,
pTyVarO :: TyVar -> SDoc, -- to print tyvar occurrences
@@
-53,8
+52,7
@@
data BindingSite = LambdaBind | CaseBind | LetBind
\begin{code}
initPprEnv
\begin{code}
initPprEnv
- :: Maybe (Con -> SDoc)
- -> Maybe (CostCentre -> SDoc)
+ :: Maybe (CostCentre -> SDoc)
-> Maybe (TyVar -> SDoc)
-> Maybe (Type -> SDoc)
-> Maybe (BindingSite -> bndr -> SDoc)
-> Maybe (TyVar -> SDoc)
-> Maybe (Type -> SDoc)
-> Maybe (BindingSite -> bndr -> SDoc)
@@
-64,9
+62,8
@@
initPprEnv
-- you can specify all the printers individually; if
-- you don't specify one, you get bottom
-- you can specify all the printers individually; if
-- you don't specify one, you get bottom
-initPprEnv p c tvo ty bndr occ
- = PE (demaybe p)
- (demaybe c)
+initPprEnv c tvo ty bndr occ
+ = PE (demaybe c)
(demaybe tvo)
(demaybe ty)
(demaybe bndr)
(demaybe tvo)
(demaybe ty)
(demaybe bndr)