diff options
| author | Josh Meredith <joshmeredith2008@gmail.com> | 2023-04-18 08:56:17 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-04-25 18:12:38 -0400 |
| commit | 8f656188e271fc55b31a50a1c2f3cf6ff9bbeeea (patch) | |
| tree | f1355837ab8525dcbf97c8e64a999c1ac345fff7 /libraries | |
| parent | ebd5b0781c6e6f4642db91353fab0f0ec04af3bc (diff) | |
| download | haskell-8f656188e271fc55b31a50a1c2f3cf6ff9bbeeea.tar.gz | |
JS: Fix h$base_access implementation (issue 22576)
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/jsbits/base.js | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/jsbits/base.js b/libraries/base/jsbits/base.js index 1f0123943b..46434298c0 100644 --- a/libraries/base/jsbits/base.js +++ b/libraries/base/jsbits/base.js @@ -14,11 +14,11 @@ function h$base_access(file, file_off, mode, c) { TRACE_IO("base_access") #ifndef GHCJS_BROWSER if(h$isNode()) { - h$fs.stat(fd, function(err, fs) { - if(err) { + h$fs.access(h$decodeUtf8z(file, file_off), mode, function(err) { + if (err) { h$handleErrnoC(err, -1, 0, c); } else { - c(mode & fs.mode); // fixme is this ok? + c(0); } }); } else |