From 5c5484c8006f3df63d4cfb640f947f6391ea192f Mon Sep 17 00:00:00 2001 From: Clemens Lang Date: Sun, 21 Sep 2014 17:45:56 +0200 Subject: 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. --- System/Posix/Files/ByteString.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'System') 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 -- cgit v1.2.3