diff options
-rw-r--r-- | System/Posix/Files.hsc | 2 | ||||
-rw-r--r-- | changelog.md | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc index 57f771e..704ef8a 100644 --- a/System/Posix/Files.hsc +++ b/System/Posix/Files.hsc @@ -151,7 +151,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 diff --git a/changelog.md b/changelog.md index 272c503..54e5a96 100644 --- a/changelog.md +++ b/changelog.md @@ -1,3 +1,7 @@ +## 2.7.0.1 + + * Handle EROFS and ETXTBSY as (non-exceptional) permission denied in `fileAccess` + ## 2.7.0.0 *Nov 2013* * New `forkProcessWithUnmask` function in the style of `forkIOWithUnmask` |