projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove unnecessary fromIntegral calls
[ghc-base.git]
/
GHC
/
IO
/
Handle
/
FD.hs
diff --git
a/GHC/IO/Handle/FD.hs
b/GHC/IO/Handle/FD.hs
index
98b7472
..
0ef0cea
100644
(file)
--- a/
GHC/IO/Handle/FD.hs
+++ b/
GHC/IO/Handle/FD.hs
@@
-21,8
+21,6
@@
module GHC.IO.Handle.FD (
) where
import GHC.Base
) where
import GHC.Base
-import GHC.Num
-import GHC.Real
import GHC.Show
import Data.Maybe
-- import Control.Monad
import GHC.Show
import Data.Maybe
-- import Control.Monad
@@
-241,7
+239,7
@@
fdToHandle' fdint mb_type is_socket filepath iomode binary = do
Just RegularFile -> Nothing
-- no stat required for streams etc.:
Just other -> Just (other,0,0)
Just RegularFile -> Nothing
-- no stat required for streams etc.:
Just other -> Just (other,0,0)
- (fd,fd_type) <- FD.mkFD (fromIntegral fdint) iomode mb_stat
+ (fd,fd_type) <- FD.mkFD fdint iomode mb_stat
is_socket
is_socket
mkHandleFromFD fd fd_type filepath iomode is_socket
is_socket
is_socket
mkHandleFromFD fd fd_type filepath iomode is_socket
@@
-256,8
+254,8
@@
fdToHandle' fdint mb_type is_socket filepath iomode binary = do
-- translation instead.
fdToHandle :: Posix.FD -> IO Handle
fdToHandle fdint = do
-- translation instead.
fdToHandle :: Posix.FD -> IO Handle
fdToHandle fdint = do
- iomode <- Posix.fdGetMode (fromIntegral fdint)
- (fd,fd_type) <- FD.mkFD (fromIntegral fdint) iomode Nothing
+ iomode <- Posix.fdGetMode fdint
+ (fd,fd_type) <- FD.mkFD fdint iomode Nothing
False{-is_socket-}
-- NB. the is_socket flag is False, meaning that:
-- on Windows we're guessing this is not a socket (XXX)
False{-is_socket-}
-- NB. the is_socket flag is False, meaning that:
-- on Windows we're guessing this is not a socket (XXX)