Commit 22dcfa7c authored by simonmar's avatar simonmar
Browse files

[project @ 2000-10-27 14:55:01 by simonmar]

don't fake the processID
parent 1db94ec6
......@@ -73,6 +73,9 @@ import FastTypes
#if __GLASGOW_HASKELL__ <= 408
import Exception ( catchIO, justIoErrors, raiseInThread )
#endif
#ifndef mingw32_TARGET_OS
import Posix
#endif
infixr 9 `thenCmp`
\end{code}
......@@ -727,7 +730,6 @@ throwTo = raiseInThread
foreign import "_getpid" myGetProcessID :: IO Int
#else
myGetProcessID :: IO Int
myGetProcessID = do hPutStrLn stderr "Warning:faking process ID in myGetProcessID"
return 12345
myGetProcessID = Posix.getProcessID
#endif
\end{code}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment