From: simonmar <unknown>
Date: Tue, 26 Mar 2002 10:44:32 +0000 (+0000)
Subject: [project @ 2002-03-26 10:44:32 by simonmar]
X-Git-Tag: nhc98-1-18-release~1079
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=760e9e42106a3698febda8c74be0f90053fe3578;p=haskell-directory.git

[project @ 2002-03-26 10:44:32 by simonmar]
sigaddset returns a CInt, not ()

From: Wolfgang Thaller <wolfgang.thaller@gmx.net>
---

diff --git a/GHC/Posix.hs b/GHC/Posix.hs
index a5c1a26..f69d57b 100644
--- a/GHC/Posix.hs
+++ b/GHC/Posix.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-implicit-prelude #-}
 
 -- ---------------------------------------------------------------------------
--- $Id: Posix.hs,v 1.4 2002/02/14 07:33:09 sof Exp $
+-- $Id: Posix.hs,v 1.5 2002/03/26 10:44:32 simonmar Exp $
 --
 -- POSIX support layer for the standard libraries
 --
@@ -340,7 +340,7 @@ foreign import ccall unsafe "pipe"
    c_pipe :: Ptr CInt -> IO CInt
 
 foreign import ccall unsafe "sigaddset"
-   c_sigaddset :: Ptr CSigset -> CInt -> IO ()
+   c_sigaddset :: Ptr CSigset -> CInt -> IO CInt
 
 foreign import ccall unsafe "sigprocmask"
    c_sigprocmask :: CInt -> Ptr CSigset -> Ptr CSigset -> IO ()