Readlink

Author: garyb

src/Node/FS/Async.purs

@@ -44,6 +44,7 @@ foreign import fs "var fs = require('fs');" ::
   , stat :: Fn2 FilePath (JSCallback StatsObj) Unit
   , link :: Fn3 FilePath FilePath (JSCallback Unit) Unit
   , symlink :: Fn4 FilePath FilePath String (JSCallback Unit) Unit
+  , readlink :: Fn2 FilePath (JSCallback FilePath) Unit
   , readFile :: forall a opts. Fn3 FilePath { | opts } (JSCallback a) Unit
   , writeFile :: forall a opts. Fn4 FilePath a { | opts } (JSCallback Unit) Unit
   }
@@ -131,6 +132,16 @@ symlink :: forall eff. FilePath
 symlink src dest ty cb = return $ runFn4
   fs.symlink src dest (show ty) (handleCallback cb)
 
+-- |
+-- Reads the value of a symlink.
+--
+readlink :: forall eff. FilePath
+                     -> Callback eff FilePath
+                     -> Eff (fs :: FS | eff) Unit
+
+readlink path cb = return $ runFn2
+  fs.readlink path (handleCallback cb)
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --

src/Node/FS/Sync.purs

@@ -28,6 +28,7 @@ foreign import fs "var fs = require('fs');" ::
   , statSync :: Fn1 FilePath StatsObj
   , linkSync :: Fn2 FilePath FilePath Unit
   , symlinkSync :: Fn3 FilePath FilePath String Unit
+  , readlinkSync :: Fn1 FilePath FilePath
   , readFileSync :: forall a opts. Fn2 FilePath { | opts } a
   , writeFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
   }
@@ -108,6 +109,15 @@ symlink :: forall eff. FilePath
 symlink src dst ty = mkEff $ \_ -> runFn3
   fs.symlinkSync src dst (show ty)
 
+-- |
+-- Reads the value of a symlink.
+--
+readlink :: forall eff. FilePath
+                     -> Eff (fs :: FS, err :: Exception Error | eff) FilePath
+
+readlink path = mkEff $ \_ -> runFn1
+  fs.readlinkSync path
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --