summaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2010-11-24 23:06:55 +0000
committerIan Lynagh <igloo@earth.li>2010-11-24 23:06:55 +0000
commitada3dd2248d0308819fa9d3290f79a2a0d372db9 (patch)
tree72c2fb8b57a7f36d0de0a4cec3cbdeb59c1041d2 /compiler
parent5fa086c51816f09d03fb1a089dde64df6bd2d8a3 (diff)
downloadhaskell-ada3dd2248d0308819fa9d3290f79a2a0d372db9.tar.gz
Whitespace only
Diffstat (limited to 'compiler')
-rw-r--r--compiler/rename/RnEnv.lhs26
1 files changed, 13 insertions, 13 deletions
diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs
index 3587093cb9..f1129155bb 100644
--- a/compiler/rename/RnEnv.lhs
+++ b/compiler/rename/RnEnv.lhs
@@ -551,21 +551,21 @@ 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
- ; case lookupLocalRdrEnv local_env rdr_name of
- Just n -> check_local_name n
- Nothing -> do -- Not defined in a nested scope
+ = do { local_env <- getLocalRdrEnv
+ ; case lookupLocalRdrEnv local_env rdr_name of
+ Just n -> check_local_name n
+ Nothing -> do -- Not defined in a nested scope
{ env <- getGlobalRdrEnv
- ; let gres = lookupGlobalRdrEnv env (rdrNameOcc rdr_name)
- ; case (filter isLocalGRE gres) of
- (gre:_) -> check_local_name (gre_name gre)
- -- If there is more than one local GRE for the
- -- same OccName 'f', that will be reported separately
- -- as a duplicate top-level binding for 'f'
- [] | null gres -> bale_out_with empty
- | otherwise -> bale_out_with import_msg
- }}
+ ; let gres = lookupGlobalRdrEnv env (rdrNameOcc rdr_name)
+ ; case (filter isLocalGRE gres) of
+ (gre:_) -> check_local_name (gre_name gre)
+ -- If there is more than one local GRE for the
+ -- same OccName 'f', that will be reported separately
+ -- 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