Mkdir

Author: garyb

README.md

@@ -34,6 +34,10 @@
 
     link :: forall eff. FilePath -> FilePath -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
 
+    mkdir :: forall eff. FilePath -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
+
+    mkdir' :: forall eff. FilePath -> Number -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
+
     readFile :: forall eff. FilePath -> Callback eff Buffer -> Eff (fs :: FS | eff) Unit
 
     readTextFile :: forall eff. Encoding -> FilePath -> Callback eff String -> Eff (fs :: FS | eff) Unit
@@ -109,6 +113,10 @@
 
     link :: forall eff. FilePath -> FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Unit
 
+    mkdir :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Unit
+
+    mkdir' :: forall eff. FilePath -> Number -> Eff (err :: Exception Error, fs :: FS | eff) Unit
+
     readFile :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Buffer
 
     readTextFile :: forall eff. Encoding -> FilePath -> Eff (err :: Exception Error, fs :: FS | eff) String

src/Node/FS/Async.purs

@@ -12,6 +12,8 @@ module Node.FS.Async
   , realpath'
   , unlink
   , rmdir
+  , mkdir
+  , mkdir'
   , readFile
   , readTextFile
   , writeFile
@@ -55,6 +57,7 @@ foreign import fs "var fs = require('fs');" ::
   , realpath :: forall cache. Fn3 FilePath { | cache } (JSCallback FilePath) Unit
   , unlink :: Fn2 FilePath (JSCallback Unit) Unit
   , rmdir :: Fn2 FilePath (JSCallback Unit) Unit
+  , mkdir :: Fn3 FilePath Number (JSCallback Unit) Unit
   , readFile :: forall a opts. Fn3 FilePath { | opts } (JSCallback a) Unit
   , writeFile :: forall a opts. Fn4 FilePath a { | opts } (JSCallback Unit) Unit
   }
@@ -194,6 +197,26 @@ rmdir :: forall eff. FilePath
 rmdir file cb = return $ runFn2
   fs.rmdir file (handleCallback cb)
 
+-- |
+-- Makes a new directory.
+--
+mkdir :: forall eff. FilePath
+                  -> Callback eff Unit
+                  -> Eff (fs :: FS | eff) Unit
+
+mkdir = flip mkdir' 777
+
+-- |
+-- Makes a new directory with the specified permissions.
+--
+mkdir' :: forall eff. FilePath
+                   -> Number
+                   -> Callback eff Unit
+                   -> Eff (fs :: FS | eff) Unit
+
+mkdir' file mode cb = return $ runFn3
+  fs.mkdir file mode (handleCallback cb)
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --

src/Node/FS/Sync.purs

@@ -11,6 +11,8 @@ module Node.FS.Sync
   , realpath'
   , unlink
   , rmdir
+  , mkdir
+  , mkdir'
   , readFile
   , readTextFile
   , writeFile
@@ -39,6 +41,7 @@ foreign import fs "var fs = require('fs');" ::
   , realpathSync :: forall cache. Fn2 FilePath { | cache } FilePath
   , unlinkSync :: Fn1 FilePath Unit
   , rmdirSync :: Fn1 FilePath Unit
+  , mkdirSync :: Fn2 FilePath Number Unit
   , readFileSync :: forall a opts. Fn2 FilePath { | opts } a
   , writeFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
   }
@@ -166,6 +169,24 @@ rmdir :: forall eff. FilePath
 rmdir file = mkEff $ \_ -> runFn1
   fs.rmdirSync file
 
+-- |
+-- Makes a new directory.
+--
+mkdir :: forall eff. FilePath
+                  -> Eff (fs :: FS, err :: Exception Error | eff) Unit
+
+mkdir = flip mkdir' 777
+
+-- |
+-- Makes a new directory with the specified permissions.
+--
+mkdir' :: forall eff. FilePath
+                   -> Number
+                   -> Eff (fs :: FS, err :: Exception Error | eff) Unit
+
+mkdir' file mode = mkEff $ \_ -> runFn2
+  fs.mkdirSync file mode
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --