From 975534d8210e5d60a743b9166add23b8edb8e757 Mon Sep 17 00:00:00 2001
From: stolz <unknown>
Date: Thu, 9 Oct 2003 14:01:46 +0000
Subject: [PATCH] [project @ 2003-10-09 14:01:46 by stolz] Fix flipped
 arguments to sigprocmask in getSignalMask.

Noticed by: Shawn P. Garbett
---
 System/Posix/Signals.hsc |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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