X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnEnv.lhs;h=508bea6459669a9fb1f13466839f942e1cca0856;hp=c5b1a8c5cf2913f00d0fc7d4c4b21ad7dfea75c5;hb=67cb409159fa9136dff942b8baaec25909416022;hpb=fe784e7dfffa8b876ed738306a82bf4bdcfd8be7

diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs
index c5b1a8c..508bea6 100644
--- a/compiler/rename/RnEnv.lhs
+++ b/compiler/rename/RnEnv.lhs
@@ -745,7 +745,7 @@ newLocalsRn rdr_names_w_loc
 		      mkInternalName uniq (rdrNameOcc rdr_name) loc
 
 bindLocatedLocalsRn :: SDoc	-- Documentation string for error message
-	   	    -> [Located RdrName]
+	   	        -> [Located RdrName]
 	    	    -> ([Name] -> RnM a)
 	    	    -> RnM a
 bindLocatedLocalsRn doc_str rdr_names_w_loc enclosed_scope
@@ -756,10 +756,8 @@ bindLocatedLocalsRn doc_str rdr_names_w_loc enclosed_scope
     checkShadowing doc_str rdr_names_w_loc	`thenM_`
 
 	-- Make fresh Names and extend the environment
-    newLocalsRn rdr_names_w_loc		`thenM` \ names ->
-    getLocalRdrEnv			`thenM` \ local_env ->
-    setLocalRdrEnv (extendLocalRdrEnv local_env names)
-		   (enclosed_scope names)
+    newLocalsRn rdr_names_w_loc		`thenM` \names ->
+    bindLocalNames names (enclosed_scope names)
 
 bindLocalNames :: [Name] -> RnM a -> RnM a
 bindLocalNames names enclosed_scope