Commit 14bdc03c authored by Neil Mitchell's avatar Neil Mitchell

Make the matching of the filename ghc.exe case insensitive, fixes bug #2603

parent 45c92e91
......@@ -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'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment