Link

Author: garyb

README.md

@@ -89,4 +89,8 @@
 
     stat :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Stats
 
-    truncate :: forall eff. FilePath -> Number -> Eff (err :: Exception Error, fs :: FS | eff) Unit
+    truncate :: forall eff. FilePath -> Number -> Eff (err :: Exception Error, fs :: FS | eff) Unit
+
+    writeFile :: forall eff. FilePath -> Buffer -> Eff (err :: Exception Error, fs :: FS | eff) Unit
+
+    writeTextFile :: forall eff. Encoding -> FilePath -> String -> Eff (err :: Exception Error, fs :: FS | eff) Unit

src/Node/FS/Async.purs

@@ -41,9 +41,10 @@ foreign import fs "var fs = require('fs');" ::
   , truncate :: Fn3 FilePath Number (JSCallback Unit) Unit
   , chown :: Fn4 FilePath Number Number (JSCallback Unit) Unit
   , chmod :: Fn3 FilePath Number (JSCallback Unit) Unit
+  , stat :: Fn2 FilePath (JSCallback StatsObj) Unit
+  , link :: Fn3 FilePath 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
-  , stat :: Fn2 FilePath (JSCallback StatsObj) Unit
   }
 
 -- |
@@ -106,6 +107,17 @@ stat :: forall eff. FilePath
 stat file cb = return $ runFn2
   fs.stat file (handleCallback $ cb <<< (<$>) Stats)
 
+-- |
+-- Creates a link to an existing file.
+--
+link :: forall eff. FilePath
+                 -> FilePath
+                 -> Callback eff Unit
+                 -> Eff (fs :: FS | eff) Unit
+
+link src dst cb = return $ runFn3
+  fs.link src dst (handleCallback cb)
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --

src/Node/FS/Sync.purs

@@ -26,6 +26,7 @@ foreign import fs "var fs = require('fs');" ::
   , chownSync :: Fn3 FilePath Number Number Unit
   , chmodSync :: Fn2 FilePath Number Unit
   , statSync :: Fn1 FilePath StatsObj
+  , linkSync :: Fn2 FilePath FilePath Unit
   , readFileSync :: forall a opts. Fn2 FilePath { | opts } a
   , writeFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
   }
@@ -85,6 +86,16 @@ stat :: forall eff. FilePath
 stat file = mkEff $ \_ -> Stats $ runFn1
   fs.statSync file
 
+-- |
+-- Creates a link to an existing file.
+--
+link :: forall eff. FilePath
+                 -> FilePath
+                 -> Eff (fs :: FS, err :: Exception Error | eff) Unit
+
+link src dst = mkEff $ \_ -> runFn2
+  fs.linkSync src dst
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --