X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=include%2FrunProcess.h;h=33507d8701473e9298fc6072e78a87bf2f87f7af;hb=778b765be6dd903fdac167c3973aebd94b12df33;hp=efa4251ad1b8f05d44ad0337648513819ec9fd17;hpb=65e3818434e254ed37b16bf4e26bf3ff2dec153f;p=haskell-directory.git

diff --git a/include/runProcess.h b/include/runProcess.h
index efa4251..33507d8 100644
--- a/include/runProcess.h
+++ b/include/runProcess.h
@@ -4,14 +4,14 @@
    Interface for code in runProcess.c (providing support for System.Process)
    ------------------------------------------------------------------------- */
 
-#if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
+#if !(defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32))
 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_HOST_OS) && !defined(__MINGW32__)
+#if !(defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32))
 
 extern ProcHandle runProcess( char *const args[], 
 			      char *workingDirectory, char **environment,