From 1ffb620ae1457b2e3eb5e415a999a4f6f15fec45 Mon Sep 17 00:00:00 2001
From: partain <unknown>
Date: Sun, 21 Apr 1996 14:46:00 +0000
Subject: [PATCH] [project @ 1996-04-21 14:45:56 by partain] Sansom 1.3
 changes to 960422

---
 ghc/compiler/rename/Rename.lhs   |    1 -
 ghc/compiler/rename/RnNames.lhs  |    2 ++
 ghc/compiler/rename/RnSource.lhs |    1 -
 3 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 9d707af..8fcc75e 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -176,7 +176,6 @@ renameModule b_names b_keys us
 
     rnIfaces iface_cache us3 orig_def_env orig_occ_env rn_module (imports_used ++ must_haves) >>=
 	\ (rn_module_with_imports, (implicit_val_fm, implicit_tc_fm), iface_errs, iface_warns) ->
-
     let
         all_imports_used = bagToList (unionManyBags [listToBag imports_used,
 						     listToBag (eltsFM implicit_tc_fm),
diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index 912e675..2d1329b 100644
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -242,6 +242,8 @@ doName locn rdr
 newGlobalName :: SrcLoc -> Maybe ExportFlag
 	      -> RdrName -> RnM_Info s Name
 
+-- ToDo: b_names and b_keys being defined in this module !!!
+
 newGlobalName locn maybe_exp rdr
   = getExtraRn			`thenRn` \ (_,b_keys,exp_fn,occ_fn) ->
     getModuleRn  		`thenRn` \ mod ->
diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 8cf8221..739c839 100644
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -34,7 +34,6 @@ import Unique		( Unique )
 import UniqFM		( emptyUFM, addListToUFM, addListToUFM_C, listToUFM, lookupUFM, eltsUFM )
 import UniqSet		( UniqSet(..) )
 import Util		( isIn, isn'tIn, sortLt, removeDups, cmpPString, panic, assertPanic, pprTrace{-ToDo:rm-} )
-
 \end{code}
 
 rnSource `renames' the source module and export list.
-- 
1.7.10.4