X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FPprEnv.lhs;h=a2df826fa7d64e45b59c721a267a755d8e56e1bd;hb=111cee3f1ad93816cb828e38b38521d85c3bcebb;hp=ed06d2ce15358fee8e1f36396c9de639e4376ccb;hpb=290e7896a6785ba5dcfbc7045438f382afd447ff;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/PprEnv.lhs b/ghc/compiler/basicTypes/PprEnv.lhs
index ed06d2c..a2df826 100644
--- 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)