[project @ 2003-02-21 13:25:17 by simonpj]

Import pruning

diff --git a/ghc/compiler/basicTypes/DataCon.hi-boot-5 b/ghc/compiler/basicTypes/DataCon.hi-boot-5
index cbd894c..07a8c68 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 )