From 99efa3bcbe469b1acd632772b41f584a90683e07 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 9 Jan 2003 11:22:19 +0000
Subject: [PATCH] [project @ 2003-01-09 11:22:19 by simonmar] Fix the stage2
 build.

---
 ghc/compiler/ghci/Linker.lhs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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}
 
 
 %************************************************************************
-- 
1.7.10.4