From 96517afb751c676dc658921650b1d78fb15c75e4 Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Mon, 16 Jul 2001 09:49:31 +0000
Subject: [PATCH] [project @ 2001-07-16 09:49:31 by rrt] Fix binary finding
 for Unix

---
 ghc/compiler/main/SysTools.lhs |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 7671fbd..4276874 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -187,7 +187,11 @@ initSysTools minusB_args
 		-- NB: top_dir is assumed to be in standard Unix format '/' separated
 
 	; let installed, installed_bin :: FilePath -> FilePath
+#ifndef mingw32_TARGET_OS
+              installed_bin pgm   =  pgmPath (top_dir `slash` "extra-bin") pgm
+#else
               installed_bin pgm   =  pgmPath (top_dir `slash` "bin") pgm
+#endif
 	      installed     file  =  pgmPath top_dir file
 	      inplace dir   pgm   =  pgmPath (top_dir `slash` dir) pgm
 
@@ -378,6 +382,9 @@ getTopDir minusbs
     -- In a build tree, the ghc binary lives in $fptools/ghc/compiler,
     -- so we strip off the /ghc/compiler suffix here too, leaving a
     -- standard TOPDIR.
+    -- Unfortunately, getting top_dir like this and then using it to generate
+    -- the path on which to find binaries means that we're ignoring
+    -- $libexecdir anyway.
     remove_suffix ghc_bin_dir	-- ghc_bin_dir is in standard Unix format
 	| "/ghc/compiler" `isSuffixOf` ghc_bin_dir	= back_two
 	| "/bin" `isSuffixOf` ghc_bin_dir  		= back_one
-- 
1.7.10.4