From: stolz <unknown>
Date: Thu, 9 Oct 2003 14:01:46 +0000 (+0000)
Subject: [project @ 2003-10-09 14:01:46 by stolz]
X-Git-Tag: nhc98-1-18-release~481
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=975534d8210e5d60a743b9166add23b8edb8e757;p=ghc-base.git

[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
--- 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 ()