From 298d9fd83318c208dc6facf419c03926d65613e0 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Tue, 16 Nov 2010 17:25:36 +0000
Subject: Remove unnecessary fromIntegral calls

---
 System/Posix/User.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'System/Posix/User.hsc')

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.
-- 
cgit v1.2.3