From: simonmar <unknown>
Date: Thu, 17 Aug 2000 16:01:34 +0000 (+0000)
Subject: [project @ 2000-08-17 16:01:34 by simonmar]
X-Git-Tag: Approximately_9120_patches~3873
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8dfa24e2d8174289ac5d68f4e4371c1a23d57096;p=ghc-hetmet.git

[project @ 2000-08-17 16:01:34 by simonmar]
remove unused imports.
---

diff --git a/ghc/compiler/typecheck/TcClassDcl.lhs b/ghc/compiler/typecheck/TcClassDcl.lhs
index d0e5379..6b206bb 100644
--- a/ghc/compiler/typecheck/TcClassDcl.lhs
+++ b/ghc/compiler/typecheck/TcClassDcl.lhs
@@ -30,11 +30,9 @@ import TcEnv		( TcId, ValueEnv, TyThing(..), TyThingDetails(..), tcAddImportedId
 			  tcExtendLocalValEnv, tcExtendTyVarEnv, newDefaultMethodName
 			)
 import TcBinds		( tcBindWithSigs, tcSpecSigs )
-import TcTyDecls	( mkNewTyConRep )
 import TcMonoType	( tcHsSigType, tcClassContext, checkSigTyVars, sigCtxt, mkTcSig )
 import TcSimplify	( tcSimplifyAndCheck, bindInstsOfLocalFuns )
 import TcType		( TcType, TcTyVar, tcInstTyVars, tcGetTyVar, zonkTcSigTyVars )
-import TcInstUtil	( classDataCon )
 import TcMonad
 import PrelInfo		( nO_METHOD_BINDING_ERROR_ID )
 import Bag		( unionManyBags, bagToList )
@@ -53,10 +51,7 @@ import Type		( Type, ThetaType, ClassContext,
 			)
 import Var		( tyVarKind, TyVar )
 import VarSet		( mkVarSet, emptyVarSet )
-import TyCon		( AlgTyConFlavour(..), mkClassTyCon )
 import Maybes		( seqMaybe )
-import SrcLoc		( SrcLoc )
-import FiniteMap        ( lookupWithDefaultFM )
 \end{code}