[project @ 2003-09-16 13:45:02 by simonmar]

fileExist should not throw an exception if the file does not exist.

1 files changed, 9 insertions, 1 deletions

diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc
index c66b9a9..010bf4e 100644
--- a/System/Posix/Files.hsc
+++ b/System/Posix/Files.hsc
@@ -196,7 +196,15 @@ fileAccess name read write exec = access name flags
    exec_f  = if exec  then (#const X_OK) else 0
 
 fileExist :: FilePath -> IO Bool
-fileExist name = access name (#const F_OK)
+fileExist name = 
+  withCString name $ \s -> do
+    r <- c_access s (#const F_OK)
+    if (r == 0)
+	then return True
+	else do err <- getErrno
+	        if (err == eNOENT)
+		   then return False
+		   else throwErrno "fileExist"
 
 access :: FilePath -> CMode -> IO Bool
 access name flags =