From: simonpj@microsoft.com <unknown>
Date: Wed, 17 Nov 2010 22:57:16 +0000 (+0000)
Subject: Remove redundant fromIntegral
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=27aaa04d21d82a77b4eca92883de3bb5b24a212c

Remove redundant fromIntegral
---

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