[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 (file)
--- 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}
 
 
 %************************************************************************