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

diff --git a/compiler/typecheck/TcEnv.lhs b/compiler/typecheck/TcEnv.lhs
index d8058d5..be1ce9b 100644
--- a/compiler/typecheck/TcEnv.lhs
+++ b/compiler/typecheck/TcEnv.lhs
@@ -104,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