Changeset 14474 for src/Pugs/Prim.hs

Show
Ignore:
Timestamp:
10/22/06 01:37:53 (2 years ago)
Author:
yiyihu
svk:copy_cache_prev:
21625
Message:

r14633@HomePc?: xinming | 2006-10-22 00:23:57 +0000
Alias closedir and close in class IO::Dir,
Now, both $dh.close and $dh.closedir works.


Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim.hs

    r14466 r14474  
    457457    obj <- createObject (mkType "IO::Dir") [] 
    458458    return . VObject $ obj{ objOpaque = Just $ toDyn dir } 
     459op1 "IO::Dir::close" = guardedIO (closeDirStream . fromObject) 
    459460op1 "IO::Dir::closedir" = guardedIO (closeDirStream . fromObject) 
    460461op1 "IO::Dir::rewinddir" = guardedIO (rewindDirStream . fromObject) 
    … …  
    21392140\\n   Str       pre     IO::Dir::readdir    unsafe,export (IO::Dir)\ 
    21402141\\n   List      pre     IO::Dir::readdir    unsafe,export (IO::Dir)\ 
     2142\\n   Bool      pre     IO::Dir::close   unsafe,export (IO::Dir)\ 
    21412143\\n   Bool      pre     IO::Dir::closedir   unsafe,export (IO::Dir)\ 
    21422144\\n   Bool      pre     IO::Dir::rewinddir  unsafe,export (IO::Dir)\