Symlink

Author: garyb

README.md

@@ -6,6 +6,18 @@
 
     data FS :: !
 
+    data SymlinkType where
+      FileLink :: SymlinkType
+      DirLink :: SymlinkType
+      JunctionLink :: SymlinkType
+
+
+### Type Class Instances
+
+    instance eqSymlinkType :: Eq SymlinkType
+
+    instance showSymlinkType :: Show SymlinkType
+
 
 ## Module Node.FS.Async
 

src/Node/FS.purs

@@ -4,3 +4,20 @@ module Node.FS where
 -- Effect type for file system usage.
 -- 
 foreign import data FS :: !
+
+-- |
+-- Symlink varieties.
+-- 
+data SymlinkType = FileLink | DirLink | JunctionLink
+
+instance showSymlinkType :: Show SymlinkType where
+  show FileLink     = "file"
+  show DirLink      = "dir"
+  show JunctionLink = "junction"
+
+instance eqSymlinkType :: Eq SymlinkType where
+  (==) FileLink     FileLink     = true
+  (==) DirLink      DirLink      = true
+  (==) JunctionLink JunctionLink = true
+  (==) _ _ = false
+  (/=) x y = not (x == y)

src/Node/FS/Async.purs

@@ -43,6 +43,7 @@ foreign import fs "var fs = require('fs');" ::
   , chmod :: Fn3 FilePath Number (JSCallback Unit) Unit
   , stat :: Fn2 FilePath (JSCallback StatsObj) Unit
   , link :: Fn3 FilePath FilePath (JSCallback Unit) Unit
+  , symlink :: Fn4 FilePath FilePath String (JSCallback Unit) Unit
   , readFile :: forall a opts. Fn3 FilePath { | opts } (JSCallback a) Unit
   , writeFile :: forall a opts. Fn4 FilePath a { | opts } (JSCallback Unit) Unit
   }
@@ -117,6 +118,18 @@ link :: forall eff. FilePath
 
 link src dst cb = return $ runFn3
   fs.link src dst (handleCallback cb)
+  
+-- |
+-- Creates a symlink.
+--
+symlink :: forall eff. FilePath
+                    -> FilePath
+                    -> SymlinkType
+                    -> Callback eff Unit
+                    -> Eff (fs :: FS | eff) Unit
+
+symlink src dest ty cb = return $ runFn4
+  fs.symlink src dest (show ty) (handleCallback cb)
 
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.

src/Node/FS/Sync.purs

@@ -27,6 +27,7 @@ foreign import fs "var fs = require('fs');" ::
   , chmodSync :: Fn2 FilePath Number Unit
   , statSync :: Fn1 FilePath StatsObj
   , linkSync :: Fn2 FilePath FilePath Unit
+  , symlinkSync :: Fn3 FilePath FilePath String Unit
   , readFileSync :: forall a opts. Fn2 FilePath { | opts } a
   , writeFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
   }
@@ -96,6 +97,17 @@ link :: forall eff. FilePath
 link src dst = mkEff $ \_ -> runFn2
   fs.linkSync src dst
 
+-- |
+-- Creates a symlink.
+--
+symlink :: forall eff. FilePath
+                    -> FilePath
+                    -> SymlinkType
+                    -> Eff (fs :: FS, err :: Exception Error | eff) Unit
+
+symlink src dst ty = mkEff $ \_ -> runFn3
+  fs.symlinkSync src dst (show ty)
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --