From 1ebe3eb69364cef574cb6636afa1413965928597 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 9 Jan 2003 12:01:45 +0000
Subject: [PATCH] [project @ 2003-01-09 12:01:45 by simonmar] Fix the stage2
 build even more.

---
 ghc/compiler/compMan/CompManager.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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