From 04a83f8c256946bdbc94b3a3f18870ca3a38c833 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 26 Apr 2001 13:38:01 +0000
Subject: [PATCH] [project @ 2001-04-26 13:38:01 by simonmar] Checking -ohi
 when looking for .hi files was the wrong thing to do.

---
 ghc/compiler/main/Finder.lhs |    8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 4e4844d..028d056 100644
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -136,15 +136,9 @@ maybeHomeModule mod_name = do
 
 mkHomeModuleLocn mod_name basename source_fn = do
 
-   -- figure out the .hi file name: it lives in the same dir as the
-   -- source, unless there's a -ohi flag on the command line.
-   ohi    <- readIORef v_Output_hi
    hisuf  <- readIORef v_Hi_suf
-   let hifile = case ohi of
-		   Nothing -> getdir basename 
-				++ '/':moduleNameUserString mod_name 
+   let hifile = getdir basename ++ '/':moduleNameUserString mod_name 
 				++ '.':hisuf
-		   Just fn -> fn
 
    -- figure out the .o file name.  It also lives in the same dir
    -- as the source, but can be overriden by a -odir flag.
-- 
1.7.10.4