From: simonpj <unknown>
Date: Wed, 13 Oct 2004 10:24:16 +0000 (+0000)
Subject: [project @ 2004-10-13 10:24:16 by simonpj]
X-Git-Tag: nhc98-1-18-release~214
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b6cbe4e36af5a486678e4622839dcef2aa487cc7;p=ghc-base.git

[project @ 2004-10-13 10:24:16 by simonpj]
c_execvpe & pPrPr_disableITimers: remove these in a Windows build.
---

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index eb16d36..6751d15 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -15,7 +15,10 @@
 
 -- #hide
 module System.Process.Internals (
-	ProcessHandle(..), PHANDLE, pPrPr_disableITimers, c_execvpe
+	ProcessHandle(..), PHANDLE,
+#if !defined(mingw32_TARGET_OS) && !defined(__MINGW32__)
+	 pPrPr_disableITimers, c_execvpe
+#endif
   ) where
 
 #if !defined(mingw32_TARGET_OS) && !defined(__MINGW32__)
@@ -51,6 +54,8 @@ newtype ProcessHandle = ProcessHandle PHANDLE
 
 -- ----------------------------------------------------------------------------
 
+#if !defined(mingw32_TARGET_OS) && !defined(__MINGW32__)
+
 -- this function disables the itimer, which would otherwise cause confusing
 -- signals to be sent to the new process.
 foreign import ccall unsafe "pPrPr_disableITimers"
@@ -58,3 +63,5 @@ foreign import ccall unsafe "pPrPr_disableITimers"
 
 foreign import ccall unsafe "execvpe"
   c_execvpe :: CString -> Ptr CString -> Ptr CString -> IO CInt
+
+#endif