diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs
index e732f010311615567d9ca4fbb880474033bbd1b3..38f4306e06a751819ab122ff31f83820bb20a8a8 100644
--- a/ghc/compiler/typecheck/TcBinds.lhs
+++ b/ghc/compiler/typecheck/TcBinds.lhs
@@ -54,7 +54,7 @@ import TysPrim		( alphaTyVar )
 import Id		( Id, mkLocalId, mkVanillaGlobal )
 import IdInfo		( vanillaIdInfo )
 import Var		( TyVar, idType, idName )
-import Name		( Name, getSrcLoc )
+import Name		( Name )
 import NameSet
 import NameEnv
 import VarSet