From 53a4d8e8fd7674e78ab19a7fc034175d3e402f40 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 27 Jul 1997 09:14:58 +0000
Subject: [PATCH] [project @ 1997-07-27 09:14:58 by sof] If needs be, look for
hi-boot files when resolving imports
---
ghc/utils/mkdependHS/mkdependHS.prl | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/ghc/utils/mkdependHS/mkdependHS.prl b/ghc/utils/mkdependHS/mkdependHS.prl
index 0d8703f6614c..fe1a7ac9867a 100644
--- a/ghc/utils/mkdependHS/mkdependHS.prl
+++ b/ghc/utils/mkdependHS/mkdependHS.prl
@@ -371,7 +371,7 @@ sub slurp_file_for_imports {
$follow_file = "$ModuleIn{$modname}/$modname.hi";
} else { # hard way
$follow_file
- = &find_in_Import_dirs($orig_src_file, $modname, $last_seen_dir );
+ = &find_in_Import_dirs($orig_src_file, $modname, $last_seen_dir, $source );
}
} else {
$follow_file
@@ -471,6 +471,12 @@ sub find_in_Import_dirs {
print STDERR "trying... $name_to_check\n" if $Verbose >= 2; # very verbose
return($name_to_check) if -f $name_to_check;
}
+
+ if ( $source ) {
+ $name_to_check = "$import_dir/$modname.hi-boot";
+ print STDERR "trying... $name_to_check\n" if $Verbose >= 2; # very verbose
+ return($name_to_check) if -f $name_to_check;
+ }
}
if ($do_magical_check == 1) {
$name_to_check = "$last_seen_dir/$modname.hi";
--
GitLab