[project @ 2000-09-22 15:56:12 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcInstUtil.lhs

diff --git a/ghc/compiler/typecheck/TcInstUtil.lhs b/ghc/compiler/typecheck/TcInstUtil.lhs
index 5638cf1..0dc6ab9 100644 (file)
--- a/ghc/compiler/typecheck/TcInstUtil.lhs
+++ b/ghc/compiler/typecheck/TcInstUtil.lhs
@@ -22,7 +22,7 @@ import TcEnv          ( InstEnv, emptyInstEnv, addToInstEnv )
 import Bag             ( bagToList, Bag )
 import Class           ( Class )
 import Var             ( TyVar, Id, idName )
-import Maybes          ( MaybeErr(..), mkLookupFunDef )
+import Maybes          ( MaybeErr(..) )
 import Name            ( getSrcLoc, nameModule, isLocallyDefined )
 import SrcLoc          ( SrcLoc )
 import Type            ( Type, ClassContext )
@@ -30,8 +30,6 @@ import PprType                ( pprConstraint )
 import Class           ( classTyCon )
 import DataCon         ( DataCon )
 import TyCon           ( tyConDataCons )
-import Unique          ( Unique, getUnique )
-import Util            ( equivClassesByUniq )
 import Outputable
 \end{code}