X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnNames.lhs;h=9fcfd2877f9795101fc0315ad83d7d92e50e979d;hp=2c0a45bc3b30e823155f94693beef46080533d33;hb=786932468faac49aafe20b65eabc8bdf465fbc9d;hpb=f03b9562a92c6ef94c603a334d5d5e1cd2165c92

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index 2c0a45b..9fcfd28 100644
--- a/compiler/rename/RnNames.lhs
+++ b/compiler/rename/RnNames.lhs
@@ -410,7 +410,6 @@ get_local_binders gbl_env (HsGroup {hs_valds  = ValBindsIn _ val_sigs,
 	; val_names <- mapM new_simple val_bndrs
 	; return (val_names ++ tc_names ++ ti_names) }
   where
-    mod        = tcg_mod gbl_env
     is_hs_boot = isHsBoot (tcg_src gbl_env) ;
 
     for_hs_bndrs :: [Located RdrName]
@@ -424,19 +423,19 @@ get_local_binders gbl_env (HsGroup {hs_valds  = ValBindsIn _ val_sigs,
 
     new_simple :: Located RdrName -> RnM (GenAvailInfo Name)
     new_simple rdr_name = do
-        nm <- newTopSrcBinder mod rdr_name
+        nm <- newTopSrcBinder rdr_name
         return (Avail nm)
 
     new_tc tc_decl              -- NOT for type/data instances
-	= do { main_name <- newTopSrcBinder mod main_rdr
-	     ; sub_names <- mapM (newTopSrcBinder mod) sub_rdrs
+	= do { main_name <- newTopSrcBinder main_rdr
+	     ; sub_names <- mapM newTopSrcBinder sub_rdrs
 	     ; return (AvailTC main_name (main_name : sub_names)) }
       where
 	(main_rdr : sub_rdrs) = hsTyClDeclBinders tc_decl
 
     new_ti tc_name_env ti_decl  -- ONLY for type/data instances
 	= do { main_name <- lookupFamInstDeclBndr tc_name_env main_rdr
-	     ; sub_names <- mapM (newTopSrcBinder mod) sub_rdrs
+	     ; sub_names <- mapM newTopSrcBinder sub_rdrs
 	     ; return (AvailTC main_name sub_names) }
                 	-- main_name is not bound here!
       where