Realpath

Author: garyb

README.md

@@ -40,6 +40,10 @@
 
     readlink :: forall eff. FilePath -> Callback eff FilePath -> Eff (fs :: FS | eff) Unit
 
+    realpath :: forall eff. FilePath -> Callback eff FilePath -> Eff (fs :: FS | eff) Unit
+
+    realpath' :: forall eff cache. FilePath -> {  | cache } -> Callback eff FilePath -> Eff (fs :: FS | eff) Unit
+
     rename :: forall eff. FilePath -> FilePath -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
 
     stat :: forall eff. FilePath -> Callback eff Stats -> Eff (fs :: FS | eff) Unit
@@ -107,6 +111,10 @@
 
     readlink :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) FilePath
 
+    realpath :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) FilePath
+
+    realpath' :: forall eff cache. FilePath -> {  | cache } -> Eff (err :: Exception Error, fs :: FS | eff) FilePath
+
     rename :: forall eff. FilePath -> FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Unit
 
     stat :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Stats

src/Node/FS/Async.purs

@@ -8,6 +8,8 @@ module Node.FS.Async
   , link
   , symlink
   , readlink
+  , realpath
+  , realpath'
   , readFile
   , readTextFile
   , writeFile
@@ -48,6 +50,7 @@ foreign import fs "var fs = require('fs');" ::
   , link :: Fn3 FilePath FilePath (JSCallback Unit) Unit
   , symlink :: Fn4 FilePath FilePath String (JSCallback Unit) Unit
   , readlink :: Fn2 FilePath (JSCallback FilePath) Unit
+  , realpath :: forall cache. Fn3 FilePath { | cache } (JSCallback FilePath) Unit
   , readFile :: forall a opts. Fn3 FilePath { | opts } (JSCallback a) Unit
   , writeFile :: forall a opts. Fn4 FilePath a { | opts } (JSCallback Unit) Unit
   }
@@ -145,6 +148,28 @@ readlink :: forall eff. FilePath
 readlink path cb = return $ runFn2
   fs.readlink path (handleCallback cb)
 
+-- |
+-- Find the canonicalized absolute location for a path.
+--
+realpath :: forall eff. FilePath
+                     -> Callback eff FilePath
+                     -> Eff (fs :: FS | eff) Unit
+
+realpath path cb = return $ runFn3
+  fs.realpath path {} (handleCallback cb)
+  
+-- |
+-- Find the canonicalized absolute location for a path using a cache object for
+-- already resolved paths.
+--
+realpath' :: forall eff cache. FilePath
+                            -> { | cache }
+                            -> Callback eff FilePath
+                            -> Eff (fs :: FS | eff) Unit
+
+realpath' path cache cb = return $ runFn3
+  fs.realpath path cache (handleCallback cb)
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --

src/Node/FS/Sync.purs

@@ -7,6 +7,8 @@ module Node.FS.Sync
   , link
   , symlink
   , readlink
+  , realpath
+  , realpath'
   , readFile
   , readTextFile
   , writeFile
@@ -32,6 +34,7 @@ foreign import fs "var fs = require('fs');" ::
   , linkSync :: Fn2 FilePath FilePath Unit
   , symlinkSync :: Fn3 FilePath FilePath String Unit
   , readlinkSync :: Fn1 FilePath FilePath
+  , realpathSync :: forall cache. Fn2 FilePath { | cache } FilePath
   , readFileSync :: forall a opts. Fn2 FilePath { | opts } a
   , writeFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
   }
@@ -121,6 +124,26 @@ readlink :: forall eff. FilePath
 readlink path = mkEff $ \_ -> runFn1
   fs.readlinkSync path
 
+-- |
+-- Find the canonicalized absolute location for a path.
+--
+realpath :: forall eff. FilePath
+                     -> Eff (fs :: FS, err :: Exception Error | eff) FilePath
+
+realpath path = mkEff $ \_ -> runFn2
+  fs.realpathSync path {}
+
+-- |
+-- Find the canonicalized absolute location for a path using a cache object for
+-- already resolved paths.
+--
+realpath' :: forall eff cache. FilePath
+                            -> { | cache }
+                            -> Eff (fs :: FS, err :: Exception Error | eff) FilePath
+
+realpath' path cache = mkEff $ \_ -> runFn2
+  fs.realpathSync path cache
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --