X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnEnv.lhs;fp=compiler%2Frename%2FRnEnv.lhs;h=825ed19fc230bc100e637db880a9da54459073a0;hb=25f0bf0245a59268fbfa8dc4ee4986b65c79ed16;hp=f1129155bb2cd811e6e92b7e414168f6105533ba;hpb=ada3dd2248d0308819fa9d3290f79a2a0d372db9;p=ghc-hetmet.git

diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs
index f112915..825ed19 100644
--- 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
-        ; 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 
@@ -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
-        }}
+        }}}
     where
       check_local_name name 	-- The name is in scope, and not imported
   	  = case mb_bound_names of