X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcEnv.lhs;h=be1ce9b96440208f4f62719b38df2da3c2f01ccd;hp=c5d65c26ace1b81fe3b146eeb1471d4d559fb8c7;hb=afef39736dcde6f4947a6f362f9e6b3586933db4;hpb=df0878586620fee9ea5ecbe4d377006c88ad498f

diff --git a/compiler/typecheck/TcEnv.lhs b/compiler/typecheck/TcEnv.lhs
index c5d65c2..be1ce9b 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}
@@ -107,7 +104,8 @@ tcLookupGlobal name
 	 
 		-- Try global envt
 	{ (eps,hpt) <- getEpsAndHpt
-	; case lookupType hpt (eps_PTE eps) name of  {
+	; dflags <- getDOpts
+	; case lookupType dflags hpt (eps_PTE eps) name of  {
 	    Just thing -> return thing ;
 	    Nothing    -> do