From 31f289ba66d724c261840a89a52c223fff647812 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 31 May 2005 13:10:39 +0000 Subject: [PATCH] [project @ 2005-05-31 13:10:39 by simonmar] oops, fix updating the module graph --- ghc/compiler/main/GHC.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs index 9fb360d..b667306 100644 --- a/ghc/compiler/main/GHC.hs +++ b/ghc/compiler/main/GHC.hs @@ -444,16 +444,17 @@ loadMsgs s@(Session ref) how_much msg_act mb_graph <- depanal s [] case mb_graph of Left msgs -> do msg_act msgs; return Failed - Right mod_graph -> loadMsgs2 s how_much msg_act mod_graph + Right mod_graph -> do + hsc_env <- readIORef ref + writeIORef ref hsc_env{ hsc_mod_graph = mod_graph } + loadMsgs2 s how_much msg_act mod_graph loadMsgs2 s@(Session ref) how_much msg_act mod_graph = do hsc_env <- readIORef ref - writeIORef ref hsc_env{ hsc_mod_graph = mod_graph } let hpt1 = hsc_HPT hsc_env let dflags = hsc_dflags hsc_env - - let ghci_mode = ghcMode (hsc_dflags hsc_env) -- this never changes + let ghci_mode = ghcMode dflags -- this never changes let verb = verbosity dflags -- The "bad" boot modules are the ones for which we have -- 1.7.10.4