From: simonmar <unknown>
Date: Thu, 26 Apr 2001 13:38:01 +0000 (+0000)
Subject: [project @ 2001-04-26 13:38:01 by simonmar]
X-Git-Tag: Approximately_9120_patches~2098
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=04a83f8c256946bdbc94b3a3f18870ca3a38c833;p=ghc-hetmet.git

[project @ 2001-04-26 13:38:01 by simonmar]
Checking -ohi when looking for .hi files was the wrong thing to do.
---

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.