Changeset 10466 for src/Pugs/Prim/FileTest.hs

Timestamp:

06/03/06 08:12:31 (3 years ago)

Author:

audreyt

Message:

* Change file tests to use native POSIX stats in preparation

of true chained tests.

Files:

• src/Pugs/Prim/FileTest.hs (modified) (1 diff)

src/Pugs/Prim/FileTest.hs

@@ -59 +59 @@
 
 fileTestExists :: FilePath -> IO Val
-fileTestExists f = do
-    b1 <- doesFileExist f
-    b2 <- doesDirectoryExist f
-    return $ valFromBool f (b1 || b2)
+fileTestExists f = doesExist f >>= return . (valFromBool f)
 
 fileTestIsFile :: FilePath -> IO Val