summaryrefslogtreecommitdiff
path: root/lang/ghc7/patches/patch-libraries_unix_System_Posix_Files.hsc
diff options
context:
space:
mode:
Diffstat (limited to 'lang/ghc7/patches/patch-libraries_unix_System_Posix_Files.hsc')
-rw-r--r--lang/ghc7/patches/patch-libraries_unix_System_Posix_Files.hsc15
1 files changed, 15 insertions, 0 deletions
diff --git a/lang/ghc7/patches/patch-libraries_unix_System_Posix_Files.hsc b/lang/ghc7/patches/patch-libraries_unix_System_Posix_Files.hsc
new file mode 100644
index 00000000000..525740bf293
--- /dev/null
+++ b/lang/ghc7/patches/patch-libraries_unix_System_Posix_Files.hsc
@@ -0,0 +1,15 @@
+$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
+