diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index 0af917b264cbb6deb223cb3ccca892581fdbb732..71bd508b5ddf52a7ccf7600c01bffa71eb14d2be 100644
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -42,7 +42,6 @@ import Name	( Name, ExportFlag(..), ImportReason(..), Provenance(..),
 		)
 import RdrName	( RdrName, rdrNameOcc, setRdrNameOcc, mkRdrQual, mkRdrUnqual, isQual, isUnqual )
 import OccName	( setOccNameSpace, dataName )
-import SrcLoc	( SrcLoc )
 import NameSet	( elemNameSet, emptyNameSet )
 import Outputable
 import Maybes	( maybeToBool, catMaybes, mapMaybe )
diff --git a/ghc/compiler/typecheck/TcEnv.lhs b/ghc/compiler/typecheck/TcEnv.lhs
index cdfc6f36d24e3ecaab2739d4076c67843d797bf6..b1f993e062ef94a42c93556393c1efae70095ea1 100644
--- a/ghc/compiler/typecheck/TcEnv.lhs
+++ b/ghc/compiler/typecheck/TcEnv.lhs
@@ -61,7 +61,6 @@ import Class	( Class, ClassOpItem, ClassContext, classTyCon )
 
 import TcMonad
 
-import BasicTypes	( Arity )
 import IdInfo		( vanillaIdInfo )
 import Name		( Name, OccName, Provenance(..), ExportFlag(..), NamedThing(..), 
 			  nameOccName, nameModule, getSrcLoc, mkGlobalName,