projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove code that is dead now that we need >= 6.12 to build
[ghc-hetmet.git]
/
compiler
/
rename
/
RnEnv.lhs
diff --git
a/compiler/rename/RnEnv.lhs
b/compiler/rename/RnEnv.lhs
index
f112915
..
825ed19
100644
(file)
--- a/
compiler/rename/RnEnv.lhs
+++ b/
compiler/rename/RnEnv.lhs
@@
-552,8
+552,8
@@
lookupBindGroupOcc :: Maybe NameSet -- See notes on the (Maybe NameSet)
-- See Note [Looking up signature names]
lookupBindGroupOcc mb_bound_names what rdr_name
= do { local_env <- getLocalRdrEnv
-- See Note [Looking up signature names]
lookupBindGroupOcc mb_bound_names what rdr_name
= do { local_env <- getLocalRdrEnv
- ; case lookupLocalRdrEnv local_env rdr_name of
- Just n -> check_local_name n
+ ; case lookupLocalRdrEnv local_env rdr_name of {
+ Just n -> check_local_name n;
Nothing -> do -- Not defined in a nested scope
{ env <- getGlobalRdrEnv
Nothing -> do -- Not defined in a nested scope
{ env <- getGlobalRdrEnv
@@
-565,7
+565,7
@@
lookupBindGroupOcc mb_bound_names what rdr_name
-- as a duplicate top-level binding for 'f'
[] | null gres -> bale_out_with empty
| otherwise -> bale_out_with import_msg
-- as a duplicate top-level binding for 'f'
[] | null gres -> bale_out_with empty
| otherwise -> bale_out_with import_msg
- }}
+ }}}
where
check_local_name name -- The name is in scope, and not imported
= case mb_bound_names of
where
check_local_name name -- The name is in scope, and not imported
= case mb_bound_names of