--getDirectoryContents :: FilePath -> IO [FilePath]
getDirectoryContents path = do
dir <- _ccall_ openDir__ path
--getDirectoryContents :: FilePath -> IO [FilePath]
getDirectoryContents path = do
dir <- _ccall_ openDir__ path
-- calls to readdir() may overwrite it.
len <- _ccall_ strlen str
entry <- stToIO (unpackNBytesST str len)
-- calls to readdir() may overwrite it.
len <- _ccall_ strlen str
entry <- stToIO (unpackNBytesST str len)