From 14bdc03c521a1fa64ea8183553ec9d5ff158ff5b Mon Sep 17 00:00:00 2001 From: Neil Mitchell Date: Tue, 16 Sep 2008 16:03:11 +0000 Subject: [PATCH] Make the matching of the filename ghc.exe case insensitive, fixes bug #2603 --- compiler/main/SysTools.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 7b9ac1d..828530b 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -844,7 +844,7 @@ getBaseDir = do let len = (2048::Int) -- plenty, PATH_MAX is 512 under Win32. return (Just (rootDir s)) where rootDir s = case splitFileName $ normalise s of - (d, "ghc.exe") -> + (d, ghc_exe) | map toLower ghc_exe == "ghc.exe" -> case splitFileName $ takeDirectory d of -- installed ghc.exe is in $topdir/bin/ghc.exe (d', "bin") -> takeDirectory d' -- 1.7.10.4