X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FSysTools.lhs;h=828530bc12c5dde1845e59ac5894c3821d86b04d;hb=b877faddc0cce7cceb470861a084784e0c1073b0;hp=7b9ac1d3383bf92fc3a84714da6f9656b94a7f10;hpb=c9bf1a2ccbf93198488b1446977e50b0a5f6ecf5;p=ghc-hetmet.git 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'