[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,
 
-       pCon, pBndr, pOcc, pSCC, 
+       pBndr, pOcc, pSCC, 
        pTy, pTyVarO
     ) where
 
 #include "HsVersions.h"
 
-import {-# SOURCE #-} Const ( Con )
+import {-# SOURCE #-} DataCon ( DataCon )
 
 import Var             ( Id, TyVar )
 import CostCentre      ( CostCentre )
@@ -33,7 +33,6 @@ import Outputable
 \begin{code}
 data PprEnv bndr
   = PE {
-       pCon :: Con        -> SDoc,
        pSCC :: CostCentre -> SDoc,
 
        pTyVarO :: TyVar -> SDoc,       -- to print tyvar occurrences
@@ -53,8 +52,7 @@ data BindingSite = LambdaBind | CaseBind | LetBind
 
 \begin{code}
 initPprEnv
-       :: Maybe (Con -> SDoc)
-       -> Maybe (CostCentre -> SDoc)
+       :: Maybe (CostCentre -> 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
 
-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)