From: sewardj <unknown>
Date: Mon, 27 Nov 2000 11:58:55 +0000 (+0000)
Subject: [project @ 2000-11-27 11:58:55 by sewardj]
X-Git-Tag: Approximately_9120_patches~3243
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d1bb3ef894ac9d1f274a3e48c907fc40820fc2b1;p=ghc-hetmet.git

[project @ 2000-11-27 11:58:55 by sewardj]
Remember to set GHCiState.target the first time.
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 863176b..35d03e4 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.15 2000/11/24 17:09:52 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.16 2000/11/27 11:58:55 sewardj Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -108,7 +108,7 @@ interactiveUI cmstate mod = do
 
    (unGHCi uiLoop) GHCiState{ modules = mods,
 			      current_module = this_mod,
-	  	              target = Nothing,
+	  	              target = mod,
 			      cmstate = cmstate',
 			      options = [ShowTiming]}
    return ()