diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2023-05-16 12:28:37 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-05-16 21:32:20 -0400 |
commit | 2972fd66f91cb51426a1df86b8166a067015e231 (patch) | |
tree | 1cd193c2b3454ef884da5af55c20073f934c217a /libraries/base/System/Posix/Internals.hs | |
parent | 3d23060c6f088e786b95865b9ac1ca84e97c1e6d (diff) | |
download | haskell-2972fd66f91cb51426a1df86b8166a067015e231.tar.gz |
JS: fix getpid (fix #23399)
Diffstat (limited to 'libraries/base/System/Posix/Internals.hs')
-rw-r--r-- | libraries/base/System/Posix/Internals.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/System/Posix/Internals.hs b/libraries/base/System/Posix/Internals.hs index 244e46f496..bd3d4db8ca 100644 --- a/libraries/base/System/Posix/Internals.hs +++ b/libraries/base/System/Posix/Internals.hs @@ -499,7 +499,7 @@ foreign import javascript interruptible "(($1,$2_1,$2_2,$c) => { return h$base_f c_ftruncate :: CInt -> FileOffset -> IO CInt foreign import javascript interruptible "(($1_1,$1_2,$c) => { return h$base_unlink($1_1,$1_2,$c); })" c_unlink :: CString -> IO CInt -foreign import javascript unsafe "(() => { return h$base_getpid; })" +foreign import javascript unsafe "h$base_getpid" c_getpid :: IO CPid -- foreign import ccall unsafe "HsBase.h fork" -- c_fork :: IO CPid |