X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcEnv.lhs;h=d8058d56a9ad1883831b5fcfb2cabda190e01b84;hb=a5168e30f331c6fe912cca4f53be8544ce6800d5;hp=388828ee4b051946af8920347eeb43d61289e5ae;hpb=658e99a85870d02c734d78e488e963da107133ff;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcEnv.lhs b/compiler/typecheck/TcEnv.lhs
index 388828e..d8058d5 100644
--- a/compiler/typecheck/TcEnv.lhs
+++ b/compiler/typecheck/TcEnv.lhs
@@ -64,14 +64,11 @@ import InstEnv		( Instance, DFunId, instanceDFunId, instanceHead )
 import DataCon		( DataCon )
 import TyCon		( TyCon )
 import Class		( Class )
-import Name		( Name, NamedThing(..), getSrcLoc, nameModule, isExternalName )
+import Name		( Name, NamedThing(..), getSrcLoc, nameModule )
 import PrelNames	( thFAKE )
 import NameEnv
 import OccName		( mkDFunOcc, occNameString )
-import HscTypes		( extendTypeEnvList, lookupType,
-			  TyThing(..), tyThingId, tyThingDataCon,
-			  ExternalPackageState(..) )
-
+import HscTypes		( extendTypeEnvList, lookupType, TyThing(..), ExternalPackageState(..) )
 import SrcLoc		( SrcLoc, Located(..) )
 import Outputable
 \end{code}
@@ -390,6 +387,8 @@ find_thing ignore_it tidy_env (ATyVar tv ty)
 	bound_at = parens $ ptext SLIT("bound at:") <+> ppr (getSrcLoc tv)
     in
     returnM (tidy_env1, Just msg)
+
+find_thing _ _ thing = pprPanic "find_thing" (ppr thing)
 \end{code}
 
 \begin{code}