X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=7739e0e73d378d30189743bc1ff5b46afc07805a;hb=04c3bfc687db82659a7fe5a8b0fa4244c52560b7;hp=e0d8632a6ae316038555171b93e69296f3dd7841;hpb=e79c9ce01d0ce4412bd4bcd99c8c728a6a2ec569;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index e0d8632..7739e0e 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -877,7 +877,7 @@ check_main dflags tcg_env
    return tcg_env
 
  | otherwise
- = do	{ mb_main <- lookupSrcOcc_maybe main_fn
+ = do	{ mb_main <- lookupGlobalOccRn_maybe main_fn
 		-- Check that 'main' is in scope
 		-- It might be imported from another module!
 	; case mb_main of {