[project @ 2004-12-02 15:57:02 by ross]

[ghc-base.git] / System / Process / Internals.hs

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index eb16d36..f53dd5b 100644 (file)
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -15,9 +15,14 @@
 
 -- #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
 
+import Prelude -- necessary to get dependencies right
+
 #if !defined(mingw32_TARGET_OS) && !defined(__MINGW32__)
 import System.Posix.Types ( CPid )
 #else
@@ -28,7 +33,7 @@ import Foreign.C.Types ( CInt )
 import Foreign.Ptr ( Ptr )
 
 #ifdef __HUGS__
-{-# CBITS execvpe.c  #-}
+{-# CFILES cbits/execvpe.c  #-}
 #endif
 
 -- ----------------------------------------------------------------------------
@@ -51,6 +56,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 +65,5 @@ foreign import ccall unsafe "pPrPr_disableITimers"
 
 foreign import ccall unsafe "execvpe"
   c_execvpe :: CString -> Ptr CString -> Ptr CString -> IO CInt
+
+#endif