From: simonpj <unknown>
Date: Thu, 20 Feb 2003 18:19:25 +0000 (+0000)
Subject: [project @ 2003-02-20 18:18:55 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1125
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3017b35fc1c2764a20d491ef785c882218c26649;p=ghc-hetmet.git

[project @ 2003-02-20 18:18:55 by simonpj]
Import pruning
---

diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs
index f42f178..a48e994 100644
--- a/ghc/compiler/basicTypes/MkId.lhs
+++ b/ghc/compiler/basicTypes/MkId.lhs
@@ -37,8 +37,8 @@ module MkId (
 
 
 import BasicTypes	( Arity, StrictnessMark(..), isMarkedUnboxed, isMarkedStrict )
-import TysPrim		( openAlphaTyVars, alphaTyVar, alphaTy, betaTyVar, betaTy,
-			  intPrimTy, realWorldStatePrimTy, addrPrimTy
+import TysPrim		( openAlphaTyVars, alphaTyVar, alphaTy, 
+			  realWorldStatePrimTy, addrPrimTy
 			)
 import TysWiredIn	( charTy, mkListTy )
 import PrelRules	( primOpRules )
@@ -58,7 +58,7 @@ import Class		( Class, classTyCon, classTyVars, classSelIds )
 import Var		( Id, TyVar, Var )
 import VarSet		( isEmptyVarSet )
 import Name		( mkFCallName, Name )
-import PrimOp		( PrimOp(DataToTagOp), primOpSig, mkPrimOpIdName )
+import PrimOp		( PrimOp, primOpSig, mkPrimOpIdName )
 import ForeignCall	( ForeignCall )
 import DataCon		( DataCon, 
 			  dataConFieldLabels, dataConRepArity, dataConTyCon,
diff --git a/ghc/compiler/hsSyn/HsPat.lhs b/ghc/compiler/hsSyn/HsPat.lhs
index b12a7c6..6027377 100644
--- a/ghc/compiler/hsSyn/HsPat.lhs
+++ b/ghc/compiler/hsSyn/HsPat.lhs
@@ -30,10 +30,8 @@ import BasicTypes	( Boxity, tupleParens )
 -- others:
 import TysWiredIn	( nilDataCon, charDataCon, charTy )
 import Var		( TyVar )
-import DataCon		( DataCon, dataConTyCon )
-import Maybes		( maybeToBool )
+import DataCon		( DataCon )
 import Outputable	
-import TyCon		( maybeTyConSingleCon )
 import Type		( Type )
 \end{code}