[project @ 2003-10-09 14:01:46 by stolz]

Fix flipped arguments to sigprocmask in getSignalMask.

Noticed by: Shawn P. Garbett

diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc
index bcd0eca..c56571a 100644 (file)
--- a/System/Posix/Signals.hsc
+++ b/System/Posix/Signals.hsc
@@ -382,7 +382,7 @@ getSignalMask :: IO SignalSet
 getSignalMask = do
   fp <- mallocForeignPtrBytes sizeof_sigset_t
   withForeignPtr fp $ \p ->
-    throwErrnoIfMinus1_ "getSignalMask" (c_sigprocmask 0 p nullPtr)
+    throwErrnoIfMinus1_ "getSignalMask" (c_sigprocmask 0 nullPtr p)
   return (SignalSet fp)
    
 sigProcMask :: String -> CInt -> SignalSet -> IO ()