diff options
author | simonpj@microsoft.com <unknown> | 2010-11-16 17:25:36 +0000 |
---|---|---|
committer | simonpj@microsoft.com <unknown> | 2010-11-16 17:25:36 +0000 |
commit | 298d9fd83318c208dc6facf419c03926d65613e0 (patch) | |
tree | 63aa775816bfa9deffe0add88511240ffb40dc4a /System/Posix/Signals.hsc | |
parent | 14022b586ca6f7b878481a3a5e05c090a6e21056 (diff) |
Remove unnecessary fromIntegral calls
Diffstat (limited to 'System/Posix/Signals.hsc')
-rw-r--r-- | System/Posix/Signals.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc index 2d23c2a..92f0e38 100644 --- a/System/Posix/Signals.hsc +++ b/System/Posix/Signals.hsc @@ -276,7 +276,7 @@ fileSizeLimitExceeded = sigXFSZ -- with interrupt signal @int@. signalProcess :: Signal -> ProcessID -> IO () signalProcess sig pid - = throwErrnoIfMinus1_ "signalProcess" (c_kill (fromIntegral pid) sig) + = throwErrnoIfMinus1_ "signalProcess" (c_kill pid sig) foreign import ccall unsafe "kill" c_kill :: CPid -> CInt -> IO CInt @@ -286,7 +286,7 @@ foreign import ccall unsafe "kill" -- all processes in group @pgid@ with interrupt signal @int@. signalProcessGroup :: Signal -> ProcessGroupID -> IO () signalProcessGroup sig pgid - = throwErrnoIfMinus1_ "signalProcessGroup" (c_killpg (fromIntegral pgid) sig) + = throwErrnoIfMinus1_ "signalProcessGroup" (c_killpg pgid sig) foreign import ccall unsafe "killpg" c_killpg :: CPid -> CInt -> IO CInt |