shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Exports.

--- a/lib/System/Directory.hs

+++ b/lib/System/Directory.hs

@@ -2,6 +2,8 @@

   removeFile,

   doesFileExist,

   doesDirectoryExist,

+  getDirectoryContents,

+  listDirectory,

   ) where

 import Prelude

 import Control.Monad(when)

@@ -56,3 +58,6 @@

           s <- peekCAString sp

           loop (s:r)

   loop []

+

+listDirectory :: FilePath -> IO [String]

+listDirectory d = filter (\ n -> n /= "." && n /= "..") <$> getDirectoryContents d

-- 

⑨