projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0c074a8
)
Remove redundant fromIntegral
author
simonpj@microsoft.com
<unknown>
Wed, 17 Nov 2010 22:57:16 +0000
(22:57 +0000)
committer
simonpj@microsoft.com
<unknown>
Wed, 17 Nov 2010 22:57:16 +0000
(22:57 +0000)
Control/Concurrent.hs
patch
|
blob
|
history
diff --git
a/Control/Concurrent.hs
b/Control/Concurrent.hs
index
79b8352
..
bdcb8de
100644
(file)
--- 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" $
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
iNFINITE :: CInt
iNFINITE = 0xFFFFFFFF -- urgh