summaryrefslogtreecommitdiff
path: root/ghc
diff options
context:
space:
mode:
authorpartain <unknown>1996-04-21 14:46:00 +0000
committerpartain <unknown>1996-04-21 14:46:00 +0000
commit1ffb620ae1457b2e3eb5e415a999a4f6f15fec45 (patch)
tree713a11b8896356220ec76b51f82aa10e9b461bcd /ghc
parent2fa68df95f711f873d7157c0ef832dfed79ceb3e (diff)
downloadhaskell-1ffb620ae1457b2e3eb5e415a999a4f6f15fec45.tar.gz
[project @ 1996-04-21 14:45:56 by partain]
Sansom 1.3 changes to 960422
Diffstat (limited to 'ghc')
-rw-r--r--ghc/compiler/rename/Rename.lhs1
-rw-r--r--ghc/compiler/rename/RnNames.lhs2
-rw-r--r--ghc/compiler/rename/RnSource.lhs1
3 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 9d707af411..8fcc75e98d 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 912e675b11..2d1329b086 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 8cf8221c74..739c839edd 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.