From d86f00770d315f0099ad3a4258f39e38735c8a9f Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Tue, 22 Jun 2010 17:22:47 +0000
Subject: [PATCH] Make the ghci.exe wrapper call the right ghc.exe

---
 driver/ghci/ghci.c |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/driver/ghci/ghci.c b/driver/ghci/ghci.c
index 03a8f98..06165b5 100644
--- a/driver/ghci/ghci.c
+++ b/driver/ghci/ghci.c
@@ -9,6 +9,7 @@
 #include <string.h>
 
 int main(int argc, char** argv) {
+    char *binDir;
     char *exePath;
     char *preArgv[1];
 
@@ -18,7 +19,8 @@ int main(int argc, char** argv) {
         fflush(stdout);
     }
 
-    exePath = "ghc.exe";
+    binDir = getExecutablePath();
+    exePath = mkString("%s/ghc.exe", binDir);
     preArgv[0] = "--interactive";
 
     run(exePath, 1, preArgv, argc - 1, argv + 1);
-- 
1.7.10.4