Show
Ignore:
Timestamp:
05/18/05 02:43:25 (4 years ago)
Author:
theorbtwo
svk:copy_cache_prev:
4945
Message:

More signatures, a few more haddocks.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim/FileTest.hs

    r2961 r3372  
    1818-- Known Bugs: multiple stat()s are done, and filename isnt a boolean. 
    1919 
    20 isReadable = fileTestIO fileTestIsReadable 
    21 isWritable = fileTestIO fileTestIsWritable 
     20isReadable   :: Val -> Eval Val 
     21isReadable   = fileTestIO fileTestIsReadable 
     22isWritable   :: Val -> Eval Val 
     23isWritable   = fileTestIO fileTestIsWritable 
     24isExecutable :: Val -> Eval Val 
    2225isExecutable = fileTestIO fileTestIsExecutable 
    23 exists = fileTestIO fileTestExists 
    24 isFile = fileTestIO fileTestIsFile 
    25 isDirectory = fileTestIO fileTestIsDirectory 
    26 fileSize = fileTestIO fileTestFileSize 
    27 sizeIsZero = fileTestIO fileTestSizeIsZero 
     26exists       :: Val -> Eval Val 
     27exists       = fileTestIO fileTestExists 
     28isFile       :: Val -> Eval Val 
     29isFile       = fileTestIO fileTestIsFile 
     30isDirectory  :: Val -> Eval Val 
     31isDirectory  = fileTestIO fileTestIsDirectory 
     32fileSize     :: Val -> Eval Val 
     33fileSize     = fileTestIO fileTestFileSize 
     34sizeIsZero   :: Val -> Eval Val 
     35sizeIsZero   = fileTestIO fileTestSizeIsZero 
    2836 
    2937fileTestIO :: (Value n) => (n -> IO Val) -> Val -> Eval Val