From ecc92abad017cf12d8eb83509d4d57ae14ad47f9 Mon Sep 17 00:00:00 2001 From: Alain O'Dea Date: Wed, 5 Feb 2014 21:24:28 +0000 Subject: Handle EROFS/ETXTBSY as permission denied in `fileAccess` (re #8741) This extends `System.Posix.Files.`access` to map EROFS & ETXTBSY to mean permission denied just like EACCESS. Based on a patch by Alain O'Dea and comments by Duncan Coutts Authored-by: Alain O'Dea Signed-off-by: Herbert Valerio Riedel --- System/Posix/Files.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'System') 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 -- cgit v1.2.3