From: Ian Lynagh <igloo@earth.li>
Date: Wed, 16 Jul 2008 21:50:00 +0000 (+0000)
Subject: Fix the inplace compiler finding package.conf on Windows
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4fb8029305b76289dc831f84035b85a02c1070b3

Fix the inplace compiler finding package.conf on Windows
---

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