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

[project @ 2000-11-27 12:10:01 by sewardj]
Look for "highest" module at head of list cmLoadModule returns
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 35d03e4..8f63eec 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.16 2000/11/27 11:58:55 sewardj Exp $
+-- $Id: InteractiveUI.hs,v 1.17 2000/11/27 12:10:01 sewardj Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -220,7 +220,7 @@ loadModule' path = do
 			modules = mods,
 			current_module = case mods of 
 					   [] -> defaultCurrentModule
-					   xs -> last xs,
+					   xs -> head xs,
 			target = Just path
 		   }
   setGHCiState new_state