Utimes

Author: garyb

README.md

@@ -62,6 +62,8 @@
 
     unlink :: forall eff. FilePath -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
 
+    utimes :: forall eff. FilePath -> Date -> Date -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
+
     writeFile :: forall eff. FilePath -> Buffer -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
 
     writeTextFile :: forall eff. Encoding -> FilePath -> String -> Callback eff Unit -> Eff (fs :: FS | eff) Unit
@@ -143,6 +145,8 @@
 
     unlink :: forall eff. FilePath -> Eff (err :: Exception Error, fs :: FS | eff) Unit
 
+    utimes :: forall eff. FilePath -> Date -> Date -> 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

@@ -15,13 +15,15 @@ module Node.FS.Async
   , mkdir
   , mkdir'
   , readdir
+  , utimes
   , readFile
   , readTextFile
   , writeFile
   , writeTextFile
   ) where
 
 import Control.Monad.Eff
+import Data.Date
 import Data.Either
 import Data.Foreign
 import Data.Function
@@ -60,6 +62,7 @@ foreign import fs "var fs = require('fs');" ::
   , rmdir :: Fn2 FilePath (JSCallback Unit) Unit
   , mkdir :: Fn3 FilePath Number (JSCallback Unit) Unit
   , readdir :: Fn2 FilePath (JSCallback [FilePath]) Unit
+  , 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
   }
@@ -229,6 +232,21 @@ readdir :: forall eff. FilePath
 readdir file cb = return $ runFn2
   fs.readdir file (handleCallback cb)
 
+-- |
+-- Sets the accessed and modified times for the specified file.
+--
+utimes :: forall eff. FilePath
+                   -> Date
+                   -> Date
+                   -> Callback eff Unit
+                   -> Eff (fs :: FS | eff) Unit
+
+utimes file atime mtime cb = return $ runFn4
+  fs.utimes file
+            ((toEpochMilliseconds atime) / 1000)
+            ((toEpochMilliseconds mtime) / 1000)
+            (handleCallback cb)
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --

src/Node/FS/Sync.purs

@@ -14,6 +14,7 @@ module Node.FS.Sync
   , mkdir
   , mkdir'
   , readdir
+  , utimes
   , readFile
   , readTextFile
   , writeFile
@@ -22,6 +23,7 @@ module Node.FS.Sync
 
 import Control.Monad.Eff
 import Control.Monad.Eff.Exception
+import Data.Date
 import Data.Function
 import Node.Buffer (Buffer(..))
 import Node.Encoding
@@ -44,6 +46,7 @@ foreign import fs "var fs = require('fs');" ::
   , rmdirSync :: Fn1 FilePath Unit
   , mkdirSync :: Fn2 FilePath Number Unit
   , readdirSync :: Fn1 FilePath [FilePath]
+  , utimesSync :: Fn3 FilePath Number Number Unit
   , readFileSync :: forall a opts. Fn2 FilePath { | opts } a
   , writeFileSync :: forall a opts. Fn3 FilePath a { | opts } Unit
   }
@@ -198,6 +201,19 @@ readdir :: forall eff. FilePath
 readdir file = mkEff $ \_ -> runFn1
   fs.readdirSync file
 
+-- |
+-- Sets the accessed and modified times for the specified file.
+--
+utimes :: forall eff. FilePath
+                   -> Date
+                   -> Date
+                   -> Eff (fs :: FS, err :: Exception Error | eff) Unit
+
+utimes file atime mtime = mkEff $ \_ -> runFn3
+  fs.utimesSync file
+                ((toEpochMilliseconds atime) / 1000)
+                ((toEpochMilliseconds mtime) / 1000)
+
 -- |
 -- Reads the entire contents of a file returning the result as a raw buffer.
 --