From f7490897fbb7a21075db50646090b750167d2f2d Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 8 Nov 2002 12:52:51 +0000 Subject: [PATCH] [project @ 2002-11-08 12:52:51 by simonmar] oops, should really check for .hi-boot- before .hi-boot --- ghc/compiler/main/DriverMkDepend.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 -- 1.7.10.4