diff options
Diffstat (limited to 'System/Posix/Process')
-rw-r--r-- | System/Posix/Process/Internals.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Process/Internals.hs b/System/Posix/Process/Internals.hs index f4c1554..26f8ce5 100644 --- a/System/Posix/Process/Internals.hs +++ b/System/Posix/Process/Internals.hs @@ -34,12 +34,12 @@ decipherWaitStatus wstat = if c_WIFSIGNALED wstat /= 0 then do let termsig = c_WTERMSIG wstat - return (Terminated (fromIntegral termsig)) + return (Terminated termsig) else do if c_WIFSTOPPED wstat /= 0 then do let stopsig = c_WSTOPSIG wstat - return (Stopped (fromIntegral stopsig)) + return (Stopped stopsig) else do ioError (mkIOError illegalOperationErrorType "waitStatus" Nothing Nothing) |