diff options
| author |  Herbert Valerio Riedel <hvr@gnu.org> | 2014-11-07 11:16:25 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-11-07 11:16:25 +0100 |
| commit | f5a08a97292fe2f17df7320e47dd0272c382d811 (patch) | |
| tree | 4c28ce003fbd3f00d4c48299dcfa9847116a24fb /System/Posix/Files.hsc | |
| parent | f72e171587708782db4a0f82e9a2c5b76d16a927 (diff) | |
| parent | 3a0c0fe1c8b2242250735675b64114fadbfc0aee (diff) | |
Merge pull request #18 from neverpanic/master
`System.Posix.Files.fileAccess` fails inside OS X sandbox
Diffstat (limited to 'System/Posix/Files.hsc')
| -rw-r--r-- | System/Posix/Files.hsc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc index 1822294..6aea6a9 100644 --- a/System/Posix/Files.hsc +++ b/System/Posix/Files.hsc @@ -154,7 +154,8 @@ access name flags = if (r == 0) then return True else do err <- getErrno - if (err == eACCES || err == eROFS || err == eTXTBSY) + if (err == eACCES || err == eROFS || err == eTXTBSY || + err == ePERM) then return False else throwErrnoPath "fileAccess" name |