Commit 22286d32 authored by simonpj's avatar simonpj
Browse files

[project @ 2002-07-12 13:42:22 by simonpj]

comments
parent 8b83d78a
......@@ -795,7 +795,8 @@ hscModuleContents
hscModuleContents dflags hst hit pcs0 mod exports_only = do {
-- slurp the interface if necessary
-- Slurp the interface if necessary (a home module will certainly
-- alraedy be loaded, but a package module might not be)
(pcs1, print_unqual, maybe_rn_stuff)
<- slurpIface dflags hit hst pcs0 mod;
......@@ -813,7 +814,8 @@ hscModuleContents dflags hst hit pcs0 mod exports_only = do {
let { all_names
| exports_only = names
| otherwise =
| otherwise = -- Invariant; we only have (not exports_only)
-- for a home module so it must already be in the HIT
let { iface = fromJust (lookupModuleEnv hit mod);
env = fromJust (mi_globals iface);
range = rdrEnvElts env;
......
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