diff options
author | Clemens Lang <neverpanic@gmail.com> | 2014-09-21 17:45:56 +0200 |
---|---|---|
committer | Clemens Lang <neverpanic@gmail.com> | 2014-09-21 17:45:56 +0200 |
commit | 5c5484c8006f3df63d4cfb640f947f6391ea192f (patch) | |
tree | 4ad850d3a042e8caa680bfa4bfa79431e00c3a02 /System | |
parent | 03cc92646d3b2c49b850de0952aeaaf1ef863d7d (diff) |
Unify accepted errno flags for access
The ByteString variant of the access function didn't accept the same
flags as the non-ByteString one, but it makes sense that the OS doesn't
care about which one is being used and returns all error codes for both
variants.
Diffstat (limited to 'System')
-rw-r--r-- | System/Posix/Files/ByteString.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/System/Posix/Files/ByteString.hsc b/System/Posix/Files/ByteString.hsc index 9430779..1b346a7 100644 --- a/System/Posix/Files/ByteString.hsc +++ b/System/Posix/Files/ByteString.hsc @@ -158,7 +158,7 @@ access name flags = if (r == 0) then return True else do err <- getErrno - if (err == eACCES) + if (err == eACCES || err == eROFS || err == eTXTBSY) then return False else throwErrnoPath "fileAccess" name |