wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Comments on getProcessID

Browse Source
This commit is contained in:
Don Stewart 2005-05-04 00:15:58 +00:00
parent 9fc0ea0f24
commit 2de3b1180b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/plugins/Plugins/MkTemp.hs
View File

@ -237,10 +237,11 @@ mkdir0700 dir = createDirectory dir
System.Posix.Directory.createDirectory dir ownerModes System.Posix.Directory.createDirectory dir ownerModes
-} -}
-- | getProcessId, stolen from GHC -- | getProcessId, stolen from GHC (main/SysTools.lhs)
-- --
#ifdef __MINGW32__ #ifdef __MINGW32__
foreign import ccall unsafe "_getpid" getProcessID :: IO Int -- relies on Int == Int32 on Windows
foreign import ccall unsafe "_getpid" getProcessID :: IO Int
#else #else
getProcessID :: IO Int getProcessID :: IO Int
getProcessID = System.Posix.Internals.c_getpid >>= return . fromIntegral getProcessID = System.Posix.Internals.c_getpid >>= return . fromIntegral