diff options
| author |  simonpj@microsoft.com <unknown> | 2010-11-16 17:25:36 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-11-16 17:25:36 +0000 |
| commit | 298d9fd83318c208dc6facf419c03926d65613e0 (patch) | |
| tree | 63aa775816bfa9deffe0add88511240ffb40dc4a /System/Posix/User.hsc | |
| parent | 14022b586ca6f7b878481a3a5e05c090a6e21056 (diff) | |
Remove unnecessary fromIntegral calls
Diffstat (limited to 'System/Posix/User.hsc')
| -rw-r--r-- | System/Posix/User.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/System/Posix/User.hsc b/System/Posix/User.hsc index 5db9146..ce7a397 100644 --- a/System/Posix/User.hsc +++ b/System/Posix/User.hsc @@ -462,7 +462,7 @@ throwErrorIfNonZero_ loc act = do rc <- act if (rc == 0) then return () - else ioError (errnoToIOError loc (Errno (fromIntegral rc)) Nothing Nothing) + else ioError (errnoToIOError loc (Errno rc) Nothing Nothing) -- Used when a function returns NULL to indicate either an error or -- EOF, depending on whether the global errno is nonzero. |