Commit 3017b35f authored by simonpj's avatar simonpj

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

Import pruning
parent e83fa2eb
......@@ -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,
......
......@@ -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}
......
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