From f549e2783d07bd1661cdec853c06d03750dd5f89 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Mon, 21 Jan 2008 12:42:44 +0000
Subject: [PATCH] Fix Trac #2055

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

I've added rn062 as a test.
---
 compiler/rename/RnEnv.lhs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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}
 
 
-- 
1.7.10.4