AppendFile

Author: garyb

README.md

@@ -28,6 +28,10 @@
 
 ### Values
 
+    appendFile :: forall eff. FilePath -> Buffer -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
+
+    appendTextFile :: forall eff. Encoding -> FilePath -> String -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
+
     chmod :: forall eff. FilePath -> Number -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
 
     chown :: forall eff. FilePath -> Number -> Number -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
@@ -111,6 +115,10 @@
 
 ### Values
 
+    appendFile :: forall eff. FilePath -> Buffer -> Eff (err :: Exception Error, fs :: FS | eff) Unit
+
+    appendTextFile :: forall eff. Encoding -> FilePath -> String -> Eff (err :: Exception Error, fs :: FS | eff) Unit
+
     chmod :: forall eff. FilePath -> Number -> Eff (err :: Exception Error, fs :: FS | eff) Unit
 
     chown :: forall eff. FilePath -> Number -> Number -> Eff (err :: Exception Error, fs :: FS | eff) Unit

src/Node/FS/Async.purs

@@ -20,6 +20,8 @@ module Node.FS.Async
   , readTextFile
   , writeFile
   , writeTextFile
+  , appendFile
+  , appendTextFile
   ) where
 
 import Control.Monad.Eff
@@ -65,6 +67,7 @@ foreign import fs "var fs = require('fs');" ::
   , utimes :: Fn4 FilePath Number 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
+  , appendFile :: forall a opts. Fn4 FilePath a { | opts } (JSCallback Unit) Unit
   }
 
 -- |
@@ -290,3 +293,26 @@ writeTextFile :: forall eff. Encoding
 
 writeTextFile encoding file buff cb = return $ runFn4
   fs.writeFile file buff { encoding: show encoding } (handleCallback cb)
+
+-- |
+-- Appends the contents of a buffer to a file.
+--
+appendFile :: forall eff. FilePath
+                       -> Buffer
+                       -> Callback eff Unit
+                       -> Eff (fs :: FS | eff) Unit
+
+appendFile file buff cb = return $ runFn4
+  fs.appendFile file buff {} (handleCallback cb)
+
+-- |
+-- Appends text to a file using the specified encoding.
+--
+appendTextFile :: forall eff. Encoding
+                           -> FilePath
+                           -> String
+                           -> Callback eff Unit
+                           -> Eff (fs :: FS | eff) Unit
+
+appendTextFile encoding file buff cb = return $ runFn4
+  fs.appendFile file buff { encoding: show encoding } (handleCallback cb)

src/Node/FS/Sync.purs

@@ -19,6 +19,8 @@ module Node.FS.Sync
   , readTextFile
   , writeFile
   , writeTextFile
+  , appendFile
+  , appendTextFile
   ) where
 
 import Control.Monad.Eff
@@ -49,6 +51,7 @@ foreign import fs "var fs = require('fs');" ::
   , utimesSync :: Fn3 FilePath Number Number Unit
   , readFileSync :: forall a opts. Fn2 FilePath { | opts } a
   , writeFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
+  , appendFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
   }
 
 foreign import mkEff
@@ -253,3 +256,24 @@ writeTextFile :: forall eff. Encoding
 
 writeTextFile encoding file buff = mkEff $ \_ -> runFn3
   fs.writeFileSync file buff { encoding: show encoding }
+
+-- |
+-- Appends the contents of a buffer to a file.
+--
+appendFile :: forall eff. FilePath
+                       -> Buffer
+                       -> Eff (fs :: FS, err :: Exception Error | eff) Unit
+
+appendFile file buff = mkEff $ \_ -> runFn3
+  fs.appendFileSync file buff {}
+
+-- |
+-- Appends text to a file using the specified encoding.
+--
+appendTextFile :: forall eff. Encoding
+                           -> FilePath
+                           -> String
+                           -> Eff (fs :: FS, err :: Exception Error | eff) Unit
+
+appendTextFile encoding file buff = mkEff $ \_ -> runFn3
+  fs.appendFileSync file buff { encoding: show encoding }