From 298d9fd83318c208dc6facf419c03926d65613e0 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Tue, 16 Nov 2010 17:25:36 +0000
Subject: Remove unnecessary fromIntegral calls

---
 System/Posix/Signals.hsc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'System/Posix/Signals.hsc')

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
-- 
cgit v1.2.3