From: sof <unknown>
Date: Sun, 27 Jul 1997 09:14:58 +0000 (+0000)
Subject: [project @ 1997-07-27 09:14:58 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~171
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=53a4d8e8fd7674e78ab19a7fc034175d3e402f40;p=ghc-hetmet.git

[project @ 1997-07-27 09:14:58 by sof]
If needs be, look for hi-boot files when resolving imports
---

diff --git a/ghc/utils/mkdependHS/mkdependHS.prl b/ghc/utils/mkdependHS/mkdependHS.prl
index 0d8703f..fe1a7ac 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";