[project @ 2003-01-09 12:01:45 by simonmar]

Fix the stage2 build even more.

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 07c5dbe..1f5aa9a 100644 (file)
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -232,9 +232,9 @@ moduleNameToModule hpt mn = do
     _not_a_home_module -> do
          maybe_stuff <- findModule mn
          case maybe_stuff of
-           Nothing -> throwDyn (CmdLineError ("can't find module `"
+           Left _ -> throwDyn (CmdLineError ("can't find module `"
                                    ++ moduleNameUserString mn ++ "'"))
-           Just (m,_) -> return m
+           Right (m,_) -> return m
 
 cmGetContext :: CmState -> IO ([String],[String])
 cmGetContext CmState{ic=ic} =