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

Import pruning

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,

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}