From: simonmar <unknown>
Date: Thu, 9 Jan 2003 11:22:19 +0000 (+0000)
Subject: [project @ 2003-01-09 11:22:19 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1284
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=99efa3bcbe469b1acd632772b41f584a90683e07;p=ghc-hetmet.git

[project @ 2003-01-09 11:22:19 by simonmar]
Fix the stage2 build.
---

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index b608206..7ee6e2e 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -262,8 +262,8 @@ getLinkDeps hpt pit mods
 		-- so use the Finder to get a ModLocation...
 	  do { mb_stuff <- findModule mod_name ;
 	       case mb_stuff of {
-		  Nothing -> no_obj mod_name ;
-		  Just (_, loc) -> do {
+		  Left _ -> no_obj mod_name ;
+		  Right (_, loc) -> do {
 
 		-- ...and then find the linkable for it
 	       mb_lnk <- findLinkable mod_name loc ;
@@ -271,7 +271,7 @@ getLinkDeps hpt pit mods
 		  Nothing -> no_obj mod_name ;
 		  Just lnk -> return lnk
 	  }}}} 
-\end{code}			  
+\end{code}
 
 
 %************************************************************************