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

[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
--- 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} =