Commit 4e94cbc4 authored by simonpj's avatar simonpj
Browse files

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

Import pruning
parent 6d7e43c4
__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 ;
......@@ -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}
......
......@@ -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 )
......
......@@ -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 )
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment