aboutsummaryrefslogtreecommitdiffhomepage
path: root/System/Posix/Signals.hsc
diff options
context:
space:
mode:
authorGravatar simonpj@microsoft.com <unknown>2010-11-16 17:25:36 +0000
committerGravatar simonpj@microsoft.com <unknown>2010-11-16 17:25:36 +0000
commit298d9fd83318c208dc6facf419c03926d65613e0 (patch)
tree63aa775816bfa9deffe0add88511240ffb40dc4a /System/Posix/Signals.hsc
parent14022b586ca6f7b878481a3a5e05c090a6e21056 (diff)
Remove unnecessary fromIntegral calls
Diffstat (limited to 'System/Posix/Signals.hsc')
-rw-r--r--System/Posix/Signals.hsc4
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