projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6d7e43c
)
[project @ 2003-02-21 13:25:17 by simonpj]
author
simonpj
<unknown>
Fri, 21 Feb 2003 13:25:56 +0000
(13:25 +0000)
committer
simonpj
<unknown>
Fri, 21 Feb 2003 13:25:56 +0000
(13:25 +0000)
Import pruning
ghc/compiler/basicTypes/DataCon.hi-boot-5
patch
|
blob
|
history
ghc/compiler/basicTypes/DataCon.lhs
patch
|
blob
|
history
ghc/compiler/deSugar/DsExpr.lhs
patch
|
blob
|
history
ghc/compiler/hsSyn/HsTypes.lhs
patch
|
blob
|
history
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
__interface DataCon 1 0 where
-__export DataCon DataCon dataConRepType isExistentialDataCon ;
+__export DataCon DataCon isExistentialDataCon ;
1 data DataCon ;
1 data DataCon ;
-1 dataConRepType :: DataCon -> TypeRep.Type ;
1 isExistentialDataCon :: DataCon -> PrelBase.Bool ;
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 CmdLineOpts ( opt_UnboxStrictFields )
import Maybes ( orElse )
import ListSetOps ( assoc )
-import Util ( zipEqual, zipWithEqual, equalLength, notNull )
+import Util ( zipEqual, zipWithEqual, notNull )
\end{code}
\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 DsMeta ( dsBracket, dsReify )
#endif
-import HsSyn ( HsExpr(..), Pat(..), HsLit(..), ArithSeqInfo(..),
+import HsSyn ( HsExpr(..), Pat(..), ArithSeqInfo(..),
Stmt(..), HsMatchContext(..), HsStmtContext(..),
Match(..), HsBinds(..), MonoBinds(..), HsConDetails(..),
mkSimpleMatch, isDoExpr
Stmt(..), HsMatchContext(..), HsStmtContext(..),
Match(..), HsBinds(..), MonoBinds(..), HsConDetails(..),
mkSimpleMatch, isDoExpr
@@
-40,7
+40,6
@@
import TcType ( tcSplitAppTy, tcSplitFunTys, tcTyConAppArgs,
mkAppTy )
import Type ( splitFunTys )
import CoreSyn
mkAppTy )
import Type ( splitFunTys )
import CoreSyn
-import Literal ( Literal(..) )
import CoreUtils ( exprType, mkIfThenElse, bindNonRec )
import FieldLabel ( FieldLabel, fieldLabelTyCon )
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 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 )
import Name ( Name, getName, mkInternalName )
import OccName ( NameSpace, mkVarOcc, tvName )
import Var ( TyVar, tyVarKind )