diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc index d4c6d517b9ee1fc7b0bb1b23aba184f2b5d4eaee..9119190927b99a37a4832858bd862de16f597b6b 100644 --- a/System/Posix/Signals.hsc +++ b/System/Posix/Signals.hsc @@ -86,9 +86,7 @@ module System.Posix.Signals ( -- * Waiting for signals getPendingSignals, -#ifndef cygwin32_HOST_OS awaitSignal, -#endif #ifdef __GLASGOW_HASKELL__ -- * The @NOCLDSTOP@ flag @@ -575,8 +573,6 @@ getPendingSignals = do throwErrnoIfMinus1_ "getPendingSignals" (c_sigpending p) return (SignalSet fp) -#ifndef cygwin32_HOST_OS - -- | @awaitSignal iset@ suspends execution until an interrupt is received. -- If @iset@ is @Just s@, @awaitSignal@ calls @sigsuspend@, installing -- @s@ as the new signal mask before suspending execution; otherwise, it @@ -605,7 +601,6 @@ awaitSignal maybe_sigset = do foreign import ccall unsafe "sigsuspend" c_sigsuspend :: Ptr CSigset -> IO CInt -#endif #ifdef __HUGS__ foreign import ccall unsafe "sigdelset" diff --git a/cbits/HsUnix.c b/cbits/HsUnix.c index fb63b45bfbaf9dcee8b8863e312860cfa25cb25d..49f90e822bce22bdb019092ce7e43d4e71876504 100644 --- a/cbits/HsUnix.c +++ b/cbits/HsUnix.c @@ -69,18 +69,16 @@ int __hsunix_unlockpt(int fd) // push a SVR4 STREAMS module; do nothing if STREAMS not available int __hsunix_push_module(int fd, const char *module) { -#if defined(I_PUSH) && !defined(__CYGWIN__) && !defined(HAVE_DEV_PTC) +#if defined(I_PUSH) && !defined(HAVE_DEV_PTC) return ioctl(fd, I_PUSH, module); #else return 0; #endif } -#if !defined(__MINGW32__) int __hscore_mkstemp(char *filetemplate) { return (mkstemp(filetemplate)); } -#endif #if HAVE_MKSTEMPS int __hscore_mkstemps(char *filetemplate, int suffixlen) { @@ -95,7 +93,7 @@ char *__hscore_mkdtemp(char *filetemplate) { #endif -#if !defined(__MINGW32__) && !defined(irix_HOST_OS) +#if !defined(irix_HOST_OS) int __hscore_getrlimit(int resource, struct rlimit *rlim) { return (getrlimit(resource, rlim)); } diff --git a/include/HsUnix.h b/include/HsUnix.h index 8b468b7c48b3b0ca211c9a82ee9e745f42158505..e2767266bf82b8f88fda860694b2649a7425e9b0 100644 --- a/include/HsUnix.h +++ b/include/HsUnix.h @@ -143,9 +143,7 @@ int __hsunix_unlockpt(int fd); // push a SVR4 STREAMS module; do nothing if STREAMS not available int __hsunix_push_module(int fd, const char *module); -#if !defined(__MINGW32__) int __hscore_mkstemp(char *filetemplate); -#endif #if HAVE_MKSTEMPS int __hscore_mkstemps(char *filetemplate, int suffixlen); @@ -155,7 +153,7 @@ int __hscore_mkstemps(char *filetemplate, int suffixlen); char *__hscore_mkdtemp(char *filetemplate); #endif -#if !defined(__MINGW32__) && !defined(irix_HOST_OS) +#if !defined(irix_HOST_OS) int __hscore_getrlimit(int resource, struct rlimit *rlim); int __hscore_setrlimit(int resource, struct rlimit *rlim); #endif diff --git a/unix.cabal b/unix.cabal index e4a2aee1d2ee5f45dfa1411ef821e23a80c2a71c..0ae27728820832f599dd42e45df47cad49b3ab7d 100644 --- a/unix.cabal +++ b/unix.cabal @@ -17,7 +17,7 @@ description: Operating System Interface for Computing Environments - IEEE Std. 1003.1). . - The package is not supported under Windows (except under Cygwin). + The package is not supported under Windows. extra-source-files: changelog.md