From: Ross Paterson <ross@soi.city.ac.uk>
Date: Sun, 13 Aug 2006 18:44:35 +0000 (+0000)
Subject: Hugs only: disable unused process primitives
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5815754f1e975fcba2e927ee92174db04d814722;p=haskell-directory.git

Hugs only: disable unused process primitives

These were the cause of Hugs bug #30, I think, and weren't used by Hugs anyway.
---

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index b0af3de..208d0ff 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -15,9 +15,11 @@
 
 -- #hide
 module System.Process.Internals (
+#ifndef __HUGS__
 	ProcessHandle(..), ProcessHandle__(..), 
 	PHANDLE, closePHANDLE, mkProcessHandle, 
 	withProcessHandle, withProcessHandle_,
+#endif
 #if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
 	 pPrPr_disableITimers, c_execvpe,
 # ifdef __GLASGOW_HASKELL__
@@ -75,6 +77,7 @@ import System.Directory.Internals ( parseSearchPath, joinFileName )
 
 #include "HsBaseConfig.h"
 
+#ifndef __HUGS__
 -- ----------------------------------------------------------------------------
 -- ProcessHandle type
 
@@ -140,6 +143,7 @@ foreign import stdcall unsafe "CloseHandle"
 	:: PHANDLE
 	-> IO ()
 #endif
+#endif /* !__HUGS__ */
 
 -- ----------------------------------------------------------------------------