Commit 4fb80293 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix the inplace compiler finding package.conf on Windows

parent 71cd62b8
...@@ -163,9 +163,12 @@ initSysTools mbMinusB dflags0 ...@@ -163,9 +163,12 @@ initSysTools mbMinusB dflags0
; let installed, installed_bin :: FilePath -> FilePath ; let installed, installed_bin :: FilePath -> FilePath
installed_bin pgm = top_dir </> pgm installed_bin pgm = top_dir </> pgm
installed file = top_dir </> file installed file = top_dir </> file
inplaceUpDirs
| isWindowsHost = 2
| otherwise = 4
inplace dir pgm = let real_top_dir = foldr (</>) "" inplace dir pgm = let real_top_dir = foldr (</>) ""
$ reverse $ reverse
$ drop 4 $ drop inplaceUpDirs
$ reverse $ reverse
$ splitDirectories top_dir $ splitDirectories top_dir
in real_top_dir </> dir </> pgm in real_top_dir </> dir </> pgm
......
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