From: simonmar <unknown>
Date: Tue, 31 May 2005 13:10:39 +0000 (+0000)
Subject: [project @ 2005-05-31 13:10:39 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~466
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=31f289ba66d724c261840a89a52c223fff647812;p=ghc-hetmet.git

[project @ 2005-05-31 13:10:39 by simonmar]
oops, fix updating the module graph
---

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