diff options
| author | simonpj@microsoft.com <unknown> | 2010-11-16 17:24:51 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-11-16 17:24:51 +0000 |
| commit | 3b01da3f3ef92ccbca12b531ff781f1ce92f9ec5 (patch) | |
| tree | 2af8708aa21c24638d4427382e4dd6f0a20d62b6 /libraries/base/System | |
| parent | 24948669dc9fe32dd0d09d8960add4c3909a95b2 (diff) | |
| download | haskell-3b01da3f3ef92ccbca12b531ff781f1ce92f9ec5.tar.gz | |
Remove unnecessary fromIntegral calls
Diffstat (limited to 'libraries/base/System')
| -rw-r--r-- | libraries/base/System/IO.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libraries/base/System/IO.hs b/libraries/base/System/IO.hs index 5304d83898..c12fcea4a7 100644 --- a/libraries/base/System/IO.hs +++ b/libraries/base/System/IO.hs @@ -244,7 +244,6 @@ import System.Posix.Types #ifdef __GLASGOW_HASKELL__ import GHC.Base -import GHC.Real import GHC.IO hiding ( onException ) import GHC.IO.IOMode import GHC.IO.Handle.FD @@ -575,7 +574,7 @@ openTempFile' loc tmp_dir template binary mode = do else ioError (errnoToIOError loc errno Nothing (Just tmp_dir)) else do - (fD,fd_type) <- FD.mkFD (fromIntegral fd) ReadWriteMode Nothing{-no stat-} + (fD,fd_type) <- FD.mkFD fd ReadWriteMode Nothing{-no stat-} False{-is_socket-} True{-is_nonblock-} |