From: simonmar <unknown>
Date: Fri, 8 Nov 2002 12:52:51 +0000 (+0000)
Subject: [project @ 2002-11-08 12:52:51 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1468
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f7490897fbb7a21075db50646090b750167d2f2d;p=ghc-hetmet.git

[project @ 2002-11-08 12:52:51 by simonmar]
oops, should really check for .hi-boot-<version> before .hi-boot
---

diff --git a/ghc/compiler/main/DriverMkDepend.hs b/ghc/compiler/main/DriverMkDepend.hs
index bfe1a6a..c6d3290 100644
--- a/ghc/compiler/main/DriverMkDepend.hs
+++ b/ghc/compiler/main/DriverMkDepend.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverMkDepend.hs,v 1.25 2002/10/17 14:26:18 simonmar Exp $
+-- $Id: DriverMkDepend.hs,v 1.26 2002/11/08 12:52:51 simonmar Exp $
 --
 -- GHC Driver
 --
@@ -189,13 +189,13 @@ findDependency is_source src imp = do
 		       boot_hi_file = replaceFilenameSuffix hi_file hiBootExt 
 		       boot_ver_hi_file = replaceFilenameSuffix hi_file hiBootVerExt 
 		   in do
-		   b <- doesFileExist boot_hi_file
+		   b <- doesFileExist boot_ver_hi_file
 		   if b 
-		     then return (Just (boot_hi_file, not is_source))
+		     then return (Just (boot_ver_hi_file, not is_source))
 		     else do
-		        b <- doesFileExist boot_ver_hi_file
+		        b <- doesFileExist boot_hi_file
 		   	if b 
-			   then return (Just (boot_ver_hi_file, not is_source))
+			   then return (Just (boot_hi_file, not is_source))
 		   	   else return (Just (hi_file, not is_source))
 
 	   Nothing -> throwDyn (ProgramError