diff options
| author |  Ian Lynagh <igloo@earth.li> | 2007-04-03 19:52:37 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-04-03 19:52:37 +0000 |
| commit | 77917bd30b9ff5677745de40191d81d7381be638 (patch) | |
| tree | 65b5b94339992d142a6c9afbe8baa024c2ee78a3 /System/Posix/Files.hsc | |
| parent | 6df8834b630b7feb443669639a7b222ef38f0608 (diff) | |
Follow type changes in base
(of the dubiously exported c_access and c_fcntl_write)
Diffstat (limited to 'System/Posix/Files.hsc')
| -rw-r--r-- | System/Posix/Files.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc index 9f85c18..906ab7e 100644 --- a/System/Posix/Files.hsc +++ b/System/Posix/Files.hsc @@ -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 |