diff options
| author |  Ian Lynagh <igloo@earth.li> | 2009-07-11 11:27:01 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-07-11 11:27:01 +0000 |
| commit | 64adb7f67518eb1f0a07948aeed37b03a0a3a761 (patch) | |
| tree | f07be56413f1b99bbf893093a1aede40438c13d2 /System | |
| parent | 61270fdeea0c2ddbe1ffb6db9c57ac945fadec5a (diff) | |
Fix warning
Diffstat (limited to 'System')
| -rw-r--r-- | System/Posix/Signals.hsc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc index d5d13a8..b6e7ae6 100644 --- a/System/Posix/Signals.hsc +++ b/System/Posix/Signals.hsc @@ -570,10 +570,12 @@ awaitSignal maybe_sigset = do Nothing -> do SignalSet fp <- getSignalMask; return fp Just (SignalSet fp) -> return fp withForeignPtr fp $ \p -> do - c_sigsuspend p + _ <- c_sigsuspend p return () -- ignore the return value; according to the docs it can only ever be -- (-1) with errno set to EINTR. + -- XXX My manpage says it can also return EFAULT. And why is ignoring + -- EINTR the right thing to do? foreign import ccall unsafe "sigsuspend" c_sigsuspend :: Ptr CSigset -> IO CInt |