Commit f549e278 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Fix Trac #2055

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

I've added rn062 as a test.
parent 00fc612d
......@@ -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}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment