X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FSysTools.lhs;h=9d53b81852f96ae6b72dc43aa6a462c149f8c9b3;hp=6dfcd4b59ae617ca987fc3d8e7edef277893e404;hb=9412e62942ebab0599c7fb0b358a9d4869647b67;hpb=e0b93c022e39d07b871e9ed97d40617eb6bee63a

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index 6dfcd4b..9d53b81 100644
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -161,9 +161,14 @@ initSysTools mbMinusB dflags0
                 -- format, '/' separated
 
         ; let installed, installed_bin :: FilePath -> FilePath
-              installed_bin pgm   =  top_dir </> pgm
-              installed     file  =  top_dir </> file
-              inplace dir   pgm   =  top_dir </> dir </> pgm
+              installed_bin pgm  = top_dir </> pgm
+              installed     file = top_dir </> file
+              inplace dir   pgm  = let real_top_dir = foldr (</>) ""
+                                                    $ reverse
+                                                    $ drop 4
+                                                    $ reverse
+                                                    $ splitDirectories top_dir
+                                   in real_top_dir </> dir </> pgm
 
         ; let pkgconfig_path
                 | am_installed = installed "package.conf"