X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=driver%2Fghci%2Fghci.c;h=414521f97d3ed18564fa4ace1a38257dfd833ad3;hb=4564ccb752ff2dd28176ff1b567b8475fdb8b403;hp=03a8f98140dad156536c95c1d7ff028536041071;hpb=f97d36cd6e050a251ef421c902bcfa04200dcfd1;p=ghc-hetmet.git

diff --git a/driver/ghci/ghci.c b/driver/ghci/ghci.c
index 03a8f98..414521f 100644
--- a/driver/ghci/ghci.c
+++ b/driver/ghci/ghci.c
@@ -1,14 +1,11 @@
 
 #include "cwrapper.h"
 #include "getLocation.h"
-#include <errno.h>
-#include <process.h>
 #include <stdio.h>
 #include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
 
 int main(int argc, char** argv) {
+    char *binDir;
     char *exePath;
     char *preArgv[1];
 
@@ -18,7 +15,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);