Follow type changes in base
authorIan Lynagh <igloo@earth.li>
Tue, 3 Apr 2007 19:52:37 +0000 (19:52 +0000)
committerIan Lynagh <igloo@earth.li>
Tue, 3 Apr 2007 19:52:37 +0000 (19:52 +0000)
(of the dubiously exported c_access and c_fcntl_write)

System/Posix/Files.hsc
System/Posix/IO.hsc

index 9f85c18..906ab7e 100644 (file)
@@ -267,7 +267,7 @@ fileExist name =
 access :: FilePath -> CMode -> IO Bool
 access name flags = 
   withCString name $ \s -> do
-    r <- c_access s flags
+    r <- c_access s (fromIntegral flags)
     if (r == 0)
        then return True
        else do err <- getErrno
index 662cf5d..408341e 100644 (file)
@@ -264,7 +264,8 @@ setFdOption (Fd fd) opt val = do
   r <- throwErrnoIfMinus1 "setFdOption" (c_fcntl_read fd getflag)
   let r' | val       = r .|. opt_val
         | otherwise = r .&. (complement opt_val)
-  throwErrnoIfMinus1_ "setFdOption" (c_fcntl_write fd setflag r')
+  throwErrnoIfMinus1_ "setFdOption"
+                      (c_fcntl_write fd setflag (fromIntegral r'))
  where
   (getflag,setflag)= case opt of
              CloseOnExec       -> ((#const F_GETFD),(#const F_SETFD))