From 27aaa04d21d82a77b4eca92883de3bb5b24a212c Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 17 Nov 2010 22:57:16 +0000
Subject: [PATCH] Remove redundant fromIntegral

---
 Control/Concurrent.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index 79b8352..bdcb8de 100644
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -495,7 +495,7 @@ withThread io = do
 waitFd :: Fd -> CInt -> IO ()
 waitFd fd write = do
    throwErrnoIfMinus1_ "fdReady" $
-        fdReady (fromIntegral fd) write (fromIntegral iNFINITE) 0
+        fdReady (fromIntegral fd) write iNFINITE 0
 
 iNFINITE :: CInt
 iNFINITE = 0xFFFFFFFF -- urgh
-- 
1.7.10.4