diff options
| author |  Ian Lynagh <igloo@earth.li> | 2008-08-21 12:01:38 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-08-21 12:01:38 +0000 |
| commit | 7f033077b8b0c618c3c1cad5a40898c2837a8969 (patch) | |
| tree | 1d83a75fb9120fca119701b37a02e3130a8250e3 /System/Posix/Process.hsc | |
| parent | c1180fec9f1121323b519ea86fd730b29f1b2f6d (diff) | |
Fix warnings in the unix package
Diffstat (limited to 'System/Posix/Process.hsc')
| -rw-r--r-- | System/Posix/Process.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Process.hsc b/System/Posix/Process.hsc index 43cacec..d092454 100644 --- a/System/Posix/Process.hsc +++ b/System/Posix/Process.hsc @@ -328,9 +328,9 @@ data ProcessStatus = Exited ExitCode getProcessStatus :: Bool -> Bool -> ProcessID -> IO (Maybe ProcessStatus) getProcessStatus block stopped pid = alloca $ \wstatp -> do - pid <- throwErrnoIfMinus1Retry "getProcessStatus" + pid' <- throwErrnoIfMinus1Retry "getProcessStatus" (c_waitpid pid wstatp (waitOptions block stopped)) - case pid of + case pid' of 0 -> return Nothing _ -> do ps <- decipherWaitStatus wstatp return (Just ps) |