Commit 5c5484c8 authored by Clemens Lang's avatar Clemens Lang
Browse files

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.
parent 03cc9264
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment