From: simonpj@microsoft.com <unknown>
Date: Mon, 21 Jan 2008 12:42:44 +0000 (+0000)
Subject: Fix Trac #2055
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=f549e2783d07bd1661cdec853c06d03750dd5f89;p=ghc-hetmet.git

Fix Trac #2055

Sorry, this was my fault, a consequence of the quasi-quoting patch.

I've added rn062 as a test.
---

diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs
index d924ab1..2909af3 100644
--- a/compiler/rename/RnEnv.lhs
+++ b/compiler/rename/RnEnv.lhs
@@ -869,8 +869,10 @@ checkShadowedNames doc_str (global_env,local_env) loc_rdr_names
 	| otherwise	     = return ()
 	where
 	  complain pp_locs = addWarnAt loc (shadowedNameWarn doc_str occ pp_locs)
-	  mb_local = lookupLocalRdrOcc  local_env  occ
-          gres     = lookupGlobalRdrEnv global_env occ
+	  mb_local = lookupLocalRdrOcc local_env occ
+          gres     = lookupGRE_RdrName (mkRdrUnqual occ) global_env
+		-- Make an Unqualified RdrName and look that up, so that
+		-- we don't find any GREs that are in scope qualified-only
 \end{code}