[project @ 2005-02-02 15:23:59 by simonmar]

[ghc-base.git] / include / runProcess.h

diff --git a/include/runProcess.h b/include/runProcess.h
index fbbd4a5..efa4251 100644 (file)
--- a/include/runProcess.h
+++ b/include/runProcess.h
@@ -4,18 +4,20 @@
    Interface for code in runProcess.c (providing support for System.Process)
    ------------------------------------------------------------------------- */
 
-#if !defined(mingw32_TARGET_OS) && !defined(__MINGW32__)
+#if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
 typedef pid_t ProcHandle;
 #else
 // Should really be intptr_t, but we don't have that type on the Haskell side
 typedef long ProcHandle;
 #endif
 
-#if !defined(mingw32_TARGET_OS) && !defined(__MINGW32__)
+#if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
 
 extern ProcHandle runProcess( char *const args[], 
                              char *workingDirectory, char **environment, 
-                             int fdStdInput, int fdStdOutput, int fdStdError);
+                             int fdStdInput, int fdStdOutput, int fdStdError,
+                             int set_inthandler, long inthandler, 
+                             int set_quithandler, long quithandler);
 
 extern ProcHandle runInteractiveProcess( char *const args[], 
                                         char *workingDirectory,