From 5815754f1e975fcba2e927ee92174db04d814722 Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Sun, 13 Aug 2006 18:44:35 +0000 Subject: [PATCH] Hugs only: disable unused process primitives These were the cause of Hugs bug #30, I think, and weren't used by Hugs anyway. --- System/Process/Internals.hs | 4 ++++ 1 file changed, 4 insertions(+) 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__ */ -- ---------------------------------------------------------------------------- -- 1.7.10.4