From 4e94cbc42227ecb187e5c2d03831ca49549095eb Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 21 Feb 2003 13:25:56 +0000
Subject: [PATCH] [project @ 2003-02-21 13:25:17 by simonpj] Import pruning

---
 ghc/compiler/basicTypes/DataCon.hi-boot-5 |    3 +--
 ghc/compiler/basicTypes/DataCon.lhs       |    2 +-
 ghc/compiler/deSugar/DsExpr.lhs           |    3 +--
 ghc/compiler/hsSyn/HsTypes.lhs            |    2 +-
 4 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/ghc/compiler/basicTypes/DataCon.hi-boot-5 b/ghc/compiler/basicTypes/DataCon.hi-boot-5
index cbd894c..07a8c68 100644
--- a/ghc/compiler/basicTypes/DataCon.hi-boot-5
+++ b/ghc/compiler/basicTypes/DataCon.hi-boot-5
@@ -1,5 +1,4 @@
 __interface DataCon 1 0 where
-__export DataCon DataCon dataConRepType isExistentialDataCon ;
+__export DataCon DataCon isExistentialDataCon ;
 1 data DataCon ;
-1 dataConRepType :: DataCon -> TypeRep.Type ;
 1 isExistentialDataCon :: DataCon -> PrelBase.Bool ;
diff --git a/ghc/compiler/basicTypes/DataCon.lhs b/ghc/compiler/basicTypes/DataCon.lhs
index d3068da..61c71d6 100644
--- a/ghc/compiler/basicTypes/DataCon.lhs
+++ b/ghc/compiler/basicTypes/DataCon.lhs
@@ -44,7 +44,7 @@ import Unique		( Unique, Uniquable(..) )
 import CmdLineOpts	( opt_UnboxStrictFields )
 import Maybes		( orElse )
 import ListSetOps	( assoc )
-import Util		( zipEqual, zipWithEqual, equalLength, notNull )
+import Util		( zipEqual, zipWithEqual, notNull )
 \end{code}
 
 
diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index 3a31d90..46e63e3 100644
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -23,7 +23,7 @@ import DsMonad
 import DsMeta		( dsBracket, dsReify )
 #endif
 
-import HsSyn		( HsExpr(..), Pat(..), HsLit(..), ArithSeqInfo(..),
+import HsSyn		( HsExpr(..), Pat(..), ArithSeqInfo(..),
 			  Stmt(..), HsMatchContext(..), HsStmtContext(..), 
 			  Match(..), HsBinds(..), MonoBinds(..), HsConDetails(..),
 			  mkSimpleMatch, isDoExpr
@@ -40,7 +40,6 @@ import TcType		( tcSplitAppTy, tcSplitFunTys, tcTyConAppArgs,
 			  mkAppTy )
 import Type		( splitFunTys )
 import CoreSyn
-import Literal		( Literal(..) )
 import CoreUtils	( exprType, mkIfThenElse, bindNonRec )
 
 import FieldLabel	( FieldLabel, fieldLabelTyCon )
diff --git a/ghc/compiler/hsSyn/HsTypes.lhs b/ghc/compiler/hsSyn/HsTypes.lhs
index 2c6716f..61321a4 100644
--- a/ghc/compiler/hsSyn/HsTypes.lhs
+++ b/ghc/compiler/hsSyn/HsTypes.lhs
@@ -38,7 +38,7 @@ import TcType		( Type, Kind, ThetaType, SourceType(..),
 			)
 import TypeRep		( Type(..), TyNote(..) )	-- toHsType sees the representation
 import TyCon		( isTupleTyCon, tupleTyConBoxity, tyConArity, isNewTyCon, getSynTyConDefn )
-import RdrName		( RdrName, mkUnqual )
+import RdrName		( mkUnqual )
 import Name		( Name, getName, mkInternalName )
 import OccName		( NameSpace, mkVarOcc, tvName )
 import Var		( TyVar, tyVarKind )
-- 
1.7.10.4