diff options
| author | Neil Mitchell <ndmitchell@gmail.com> | 2008-09-16 16:03:11 +0000 |
|---|---|---|
| committer | Neil Mitchell <ndmitchell@gmail.com> | 2008-09-16 16:03:11 +0000 |
| commit | 14bdc03c521a1fa64ea8183553ec9d5ff158ff5b (patch) | |
| tree | fba34200bf74b6cacfdc53fcc4224f84e0f744b3 /compiler/main | |
| parent | 45c92e91085250724bfc350ae8e78cfe93515235 (diff) | |
| download | haskell-14bdc03c521a1fa64ea8183553ec9d5ff158ff5b.tar.gz | |
Make the matching of the filename ghc.exe case insensitive, fixes bug #2603
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/SysTools.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 7b9ac1d338..828530bc12 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' |