Commit abcf7aef authored by simonmar's avatar simonmar
Browse files

[project @ 2005-07-01 09:41:24 by simonmar]

setContextAfterLoad: include the Prelude if the top module is compiled
(this broke at some point in the HEAD, 6.4 works fine).
parent c55d0121
...@@ -701,7 +701,7 @@ setContextAfterLoad (m:_) = do ...@@ -701,7 +701,7 @@ setContextAfterLoad (m:_) = do
session <- getSession session <- getSession
b <- io (GHC.moduleIsInterpreted session m) b <- io (GHC.moduleIsInterpreted session m)
if b then io (GHC.setContext session [m] []) if b then io (GHC.setContext session [m] [])
else io (GHC.setContext session [] [m]) else io (GHC.setContext session [] [prelude_mod,m])
modulesLoadedMsg :: SuccessFlag -> [Module] -> GHCi () modulesLoadedMsg :: SuccessFlag -> [Module] -> GHCi ()
modulesLoadedMsg ok mods = do modulesLoadedMsg ok mods = do
......
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