Comments on getProcessID

This commit is contained in:
Don Stewart 2005-05-04 00:15:58 +00:00
parent 9fc0ea0f24
commit 2de3b1180b

View File

@ -237,9 +237,10 @@ 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__
-- relies on Int == Int32 on Windows
foreign import ccall unsafe "_getpid" getProcessID :: IO Int foreign import ccall unsafe "_getpid" getProcessID :: IO Int
#else #else
getProcessID :: IO Int getProcessID :: IO Int