16 lines
501 B
Haskell
16 lines
501 B
Haskell
$NetBSD: patch-libraries_unix_System_Posix_Files.hsc,v 1.1 2014/05/21 16:07:59 jperkin Exp $
|
|
|
|
Add more errnos.
|
|
|
|
--- libraries/unix/System/Posix/Files.hsc.orig 2013-04-18 21:36:40.000000000 +0000
|
|
+++ libraries/unix/System/Posix/Files.hsc
|
|
@@ -171,7 +171,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
|
|
|