Unify accepted errno flags for access
authorClemens Lang <neverpanic@gmail.com>
Sun, 21 Sep 2014 15:45:56 +0000 (17:45 +0200)
committerClemens Lang <neverpanic@gmail.com>
Sun, 21 Sep 2014 15:45:56 +0000 (17:45 +0200)
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

index 9430779..1b346a7 100644 (file)
@@ -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