Commit 61eb4dec authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Remove redundant fromIntegral

parent f891ddaf
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment