X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcTyClsDecls.lhs;h=404d4cb3db66cedeb9f9973f1f8702c6de5bbcb1;hb=64ac3c5fc190617c81c8db8c8050c00794ac026d;hp=897a6d7527c0aebc2d3344e2bed73fb2c4a57a0c;hpb=53f7c67bbab823da1b39925b067a30a1430f868e;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcTyClsDecls.lhs b/ghc/compiler/typecheck/TcTyClsDecls.lhs
index 897a6d7..404d4cb 100644
--- a/ghc/compiler/typecheck/TcTyClsDecls.lhs
+++ b/ghc/compiler/typecheck/TcTyClsDecls.lhs
@@ -16,7 +16,7 @@ import HsSyn		( TyClDecl(..),
 			  isTypeOrClassDecl, isClassDecl, isSynDecl, isClassOpSig
 			)
 import RnHsSyn		( RenamedTyClDecl, tyClDeclFVs )
-import BasicTypes	( RecFlag(..), isNonRec, NewOrData(..) )
+import BasicTypes	( RecFlag(..), NewOrData(..) )
 import HscTypes		( implicitTyThingIds )
 
 import TcRnMonad
@@ -43,12 +43,11 @@ import DataCon		( dataConOrigArgTys )
 import Var		( varName )
 import FiniteMap
 import Digraph		( stronglyConnComp, SCC(..) )
-import Name		( Name, getSrcLoc )
+import Name		( Name )
 import NameEnv
 import NameSet
 import Outputable
 import Maybes		( mapMaybe )
-import ErrUtils		( Message )
 \end{code}