From 4fb8029305b76289dc831f84035b85a02c1070b3 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 16 Jul 2008 21:50:00 +0000 Subject: [PATCH] Fix the inplace compiler finding package.conf on Windows --- compiler/main/SysTools.lhs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 9d53b81..1538b95 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -163,9 +163,12 @@ initSysTools mbMinusB dflags0 ; let installed, installed_bin :: FilePath -> FilePath installed_bin pgm = top_dir pgm installed file = top_dir file + inplaceUpDirs + | isWindowsHost = 2 + | otherwise = 4 inplace dir pgm = let real_top_dir = foldr () "" $ reverse - $ drop 4 + $ drop inplaceUpDirs $ reverse $ splitDirectories top_dir in real_top_dir dir pgm -- 1.7.10.4