Format; Add FFI for access, copyFile, mkdtemp

CHANGELOG.md

@@ -12,6 +12,11 @@ Bugfixes:
 
 Other improvements:
 
+## [v8.2.0](https://github.com/purescript-node/purescript-node-fs/releases/tag/v8.2.0) - 2023-03-23
+
+New features:
+- Add FFI for `access`, `copyFile` and `mkdtemp`  (#73 by @JordanMartinez)
+
 ## [v8.1.1](https://github.com/purescript-node/purescript-node-fs/releases/tag/v8.1.1) - 2022-10-24
 
 Other improvements:

src/Node/FS.purs

@@ -1,57 +1,20 @@
 module Node.FS
   ( FileDescriptor(..)
-  , FileFlags(..)
   , FileMode(..)
   , SymlinkType(..)
   , symlinkTypeToNode
   , BufferLength(..)
   , BufferOffset(..)
   , ByteCount(..)
   , FilePosition(..)
-  , fileFlagsToNode
+  , module Exports
   ) where
 
 import Prelude
 
-foreign import data FileDescriptor :: Type
-
-data FileFlags = R | R_PLUS | RS | RS_PLUS
-               | W | WX | W_PLUS | WX_PLUS
-               | A | AX | A_PLUS | AX_PLUS
-
-instance showFileFlags :: Show FileFlags where
-  show R       = "R"
-  show R_PLUS  = "R_PLUS"
-  show RS      = "RS"
-  show RS_PLUS = "RS_PLUS"
-  show W       = "W"
-  show WX      = "WX"
-  show W_PLUS  = "W_PLUS"
-  show WX_PLUS = "WX_PLUS"
-  show A       = "A"
-  show AX      = "AX"
-  show A_PLUS  = "A_PLUS"
-  show AX_PLUS = "AX_PLUS"
+import Node.FS.Constants (FileFlags(..), fileFlagsToNode) as Exports
 
-instance eqFileFlags :: Eq FileFlags where
-  eq x y = show x == show y
-
--- | Convert a `FileFlags` to a `String` in the format expected by the Node.js
--- | filesystem API.
-fileFlagsToNode :: FileFlags -> String
-fileFlagsToNode ff = case ff of
-  R       -> "r"
-  R_PLUS  -> "r+"
-  RS      -> "rs"
-  RS_PLUS -> "rs+"
-  W       -> "w"
-  WX      -> "wx"
-  W_PLUS  -> "w+"
-  WX_PLUS -> "wx+"
-  A       -> "a"
-  AX      -> "ax"
-  A_PLUS  -> "a+"
-  AX_PLUS -> "ax+"
+foreign import data FileDescriptor :: Type
 
 type FileMode = Int
 type FilePosition = Int
@@ -71,12 +34,12 @@ symlinkTypeToNode ty = case ty of
   JunctionLink -> "junction"
 
 instance showSymlinkType :: Show SymlinkType where
-  show FileLink     = "FileLink"
-  show DirLink      = "DirLink"
+  show FileLink = "FileLink"
+  show DirLink = "DirLink"
   show JunctionLink = "JunctionLink"
 
 instance eqSymlinkType :: Eq SymlinkType where
-  eq FileLink     FileLink     = true
-  eq DirLink      DirLink      = true
+  eq FileLink FileLink = true
+  eq DirLink DirLink = true
   eq JunctionLink JunctionLink = true
   eq _ _ = false

src/Node/FS/Async.js

@@ -1,4 +1,7 @@
 export {
+  access as accessImpl,
+  copyFile as copyFileImpl,
+  mkdtemp as mkdtempImpl,
   rename as renameImpl,
   truncate as truncateImpl,
   chown as chownImpl,
@@ -22,4 +25,4 @@ export {
   read as readImpl,
   write as writeImpl,
   close as closeImpl
-} from "fs";
+} from "node:fs";