Rmdir

Author: garyb

README.md

@@ -46,6 +46,8 @@
 
     rename :: forall eff. FilePath -> FilePath -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
 
+    rmdir :: forall eff. FilePath -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
+
     stat :: forall eff. FilePath -> Callback eff Stats -> Eff (fs :: FS | eff) Unit
 
     symlink :: forall eff. FilePath -> FilePath -> SymlinkType -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
@@ -119,6 +121,8 @@
 
     rename :: forall eff. FilePath -> FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Unit
 
+    rmdir :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Unit
+
     stat :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Stats
 
     symlink :: forall eff. FilePath -> FilePath -> SymlinkType -> Eff (err :: Exception Error, fs :: FS | eff) Unit

src/Node/FS/Async.purs

@@ -11,6 +11,7 @@ module Node.FS.Async
   , realpath
   , realpath'
   , unlink
+  , rmdir
   , readFile
   , readTextFile
   , writeFile
@@ -53,6 +54,7 @@ foreign import fs "var fs = require('fs');" ::
   , readlink :: Fn2 FilePath (JSCallback FilePath) Unit
   , realpath :: forall cache. Fn3 FilePath { | cache } (JSCallback FilePath) Unit
   , unlink :: Fn2 FilePath (JSCallback Unit) Unit
+  , rmdir :: Fn2 FilePath (JSCallback Unit) Unit
   , readFile :: forall a opts. Fn3 FilePath { | opts } (JSCallback a) Unit
   , writeFile :: forall a opts. Fn4 FilePath a { | opts } (JSCallback Unit) Unit
   }
@@ -182,6 +184,16 @@ unlink :: forall eff. FilePath
 unlink file cb = return $ runFn2
   fs.unlink file (handleCallback cb)
 
+-- |
+-- Deletes a directory.
+--
+rmdir :: forall eff. FilePath
+                   -> Callback eff Unit
+                   -> Eff (fs :: FS | eff) Unit
+
+rmdir file cb = return $ runFn2
+  fs.rmdir file (handleCallback cb)
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --

src/Node/FS/Sync.purs

@@ -10,6 +10,7 @@ module Node.FS.Sync
   , realpath
   , realpath'
   , unlink
+  , rmdir
   , readFile
   , readTextFile
   , writeFile
@@ -37,6 +38,7 @@ foreign import fs "var fs = require('fs');" ::
   , readlinkSync :: Fn1 FilePath FilePath
   , realpathSync :: forall cache. Fn2 FilePath { | cache } FilePath
   , unlinkSync :: Fn1 FilePath Unit
+  , rmdirSync :: Fn1 FilePath Unit
   , readFileSync :: forall a opts. Fn2 FilePath { | opts } a
   , writeFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
   }
@@ -155,6 +157,15 @@ unlink :: forall eff. FilePath
 unlink file = mkEff $ \_ -> runFn1
   fs.unlinkSync file
 
+-- |
+-- Deletes a directory.
+--
+rmdir :: forall eff. FilePath
+                  -> Eff (fs :: FS, err :: Exception Error | eff) Unit
+
+rmdir file = mkEff $ \_ -> runFn1
+  fs.rmdirSync file
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --