Commit 1ffb620a authored by partain's avatar partain
Browse files

[project @ 1996-04-21 14:45:56 by partain]

Sansom 1.3 changes to 960422
parent 2fa68df9
......@@ -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),
......
......@@ -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 ->
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment