Readdir

Author: garyb

README.md

@@ -42,6 +42,8 @@
 
     readTextFile :: forall eff. Encoding -> FilePath -> Callback eff String -> Eff (fs :: FS | eff) Unit
 
+    readdir :: forall eff. FilePath -> Callback eff [FilePath] -> Eff (fs :: FS | eff) Unit
+
     readlink :: forall eff. FilePath -> Callback eff FilePath -> Eff (fs :: FS | eff) Unit
 
     realpath :: forall eff. FilePath -> Callback eff FilePath -> Eff (fs :: FS | eff) Unit
@@ -121,6 +123,8 @@
 
     readTextFile :: forall eff. Encoding -> FilePath -> Eff (err :: Exception Error, fs :: FS | eff) String
 
+    readdir :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) [FilePath]
+
     readlink :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) FilePath
 
     realpath :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) FilePath

src/Node/FS/Async.purs

@@ -14,6 +14,7 @@ module Node.FS.Async
   , rmdir
   , mkdir
   , mkdir'
+  , readdir
   , readFile
   , readTextFile
   , writeFile
@@ -58,6 +59,7 @@ foreign import fs "var fs = require('fs');" ::
   , unlink :: Fn2 FilePath (JSCallback Unit) Unit
   , rmdir :: Fn2 FilePath (JSCallback Unit) Unit
   , mkdir :: Fn3 FilePath Number (JSCallback Unit) Unit
+  , readdir :: Fn2 FilePath (JSCallback [FilePath]) Unit
   , readFile :: forall a opts. Fn3 FilePath { | opts } (JSCallback a) Unit
   , writeFile :: forall a opts. Fn4 FilePath a { | opts } (JSCallback Unit) Unit
   }
@@ -217,6 +219,16 @@ mkdir' :: forall eff. FilePath
 mkdir' file mode cb = return $ runFn3
   fs.mkdir file mode (handleCallback cb)
 
+-- |
+-- Reads the contents of a directory.
+--
+readdir :: forall eff. FilePath
+                    -> Callback eff [FilePath]
+                    -> Eff (fs :: FS | eff) Unit
+
+readdir file cb = return $ runFn2
+  fs.readdir file (handleCallback cb)
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --

src/Node/FS/Sync.purs

@@ -13,6 +13,7 @@ module Node.FS.Sync
   , rmdir
   , mkdir
   , mkdir'
+  , readdir
   , readFile
   , readTextFile
   , writeFile
@@ -42,6 +43,7 @@ foreign import fs "var fs = require('fs');" ::
   , unlinkSync :: Fn1 FilePath Unit
   , rmdirSync :: Fn1 FilePath Unit
   , mkdirSync :: Fn2 FilePath Number Unit
+  , readdirSync :: Fn1 FilePath [FilePath]
   , readFileSync :: forall a opts. Fn2 FilePath { | opts } a
   , writeFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
   }
@@ -187,6 +189,15 @@ mkdir' :: forall eff. FilePath
 mkdir' file mode = mkEff $ \_ -> runFn2
   fs.mkdirSync file mode
 
+-- |
+-- Reads the contents of a directory.
+--
+readdir :: forall eff. FilePath
+                    -> Eff (fs :: FS, err :: Exception Error | eff) [FilePath]
+
+readdir file = mkEff $ \_ -> runFn1
+  fs.readdirSync file
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --