From 9b33358b5b81daf98c5eb37a9bcbfb77d786edf8 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 14 May 2007 10:45:09 +0000 Subject: [PATCH] fix for Vista workaround: "PATH" can be spelt "Path" --- compiler/main/SysTools.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 17ed501..5805e3c 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -485,7 +485,8 @@ getGccEnv opts = get_b_opt (Option ('-':'B':dir)) = Left dir get_b_opt other = Right other - mangle_path ("PATH",paths) = ("PATH", '\"' : head b_dirs ++ "\";" ++ paths) + mangle_path (path,paths) | map toUpper path == "PATH" + = (path, '\"' : head b_dirs ++ "\";" ++ paths) mangle_path other = other #endif -- 1.7.10.4