From 2c7c0d8266e5e68bcc10b8f6c5c40f1b493102e6 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 25 Nov 1997 10:27:46 +0000
Subject: [PATCH] [project @ 1997-11-25 10:27:46 by simonm] change -i semantics
to match GHC.
---
ghc/utils/mkdependHS/mkdependHS.prl | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/ghc/utils/mkdependHS/mkdependHS.prl b/ghc/utils/mkdependHS/mkdependHS.prl
index fe86282159b8..f76bee65e5ca 100644
--- a/ghc/utils/mkdependHS/mkdependHS.prl
+++ b/ghc/utils/mkdependHS/mkdependHS.prl
@@ -240,8 +240,10 @@ sub mangle_command_line_args {
} elsif ( /^-D(.*)/ ) { # recognized wherever they occur
push(@Defines, $_);
- } elsif ( /^-i(.*)/ ) { # ditto
- $Import_dirs .= ":$1";
+ } elsif ( /^-i$/ ) {
+ $Import_dirs = ''; # import path cleared!
+ } elsif ( /^-i(.*)/ ) {
+ $Import_dirs = "$1:$Import_dirs";
} elsif ( /^-I/ ) {
$Include_dirs .= " $_";
} elsif ( /^-syslib$/ ) {
--
GitLab