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 ...@@ -73,6 +73,9 @@ import FastTypes
#if __GLASGOW_HASKELL__ <= 408 #if __GLASGOW_HASKELL__ <= 408
import Exception ( catchIO, justIoErrors, raiseInThread ) import Exception ( catchIO, justIoErrors, raiseInThread )
#endif #endif
#ifndef mingw32_TARGET_OS
import Posix
#endif
infixr 9 `thenCmp` infixr 9 `thenCmp`
\end{code} \end{code}
...@@ -727,7 +730,6 @@ throwTo = raiseInThread ...@@ -727,7 +730,6 @@ throwTo = raiseInThread
foreign import "_getpid" myGetProcessID :: IO Int foreign import "_getpid" myGetProcessID :: IO Int
#else #else
myGetProcessID :: IO Int myGetProcessID :: IO Int
myGetProcessID = do hPutStrLn stderr "Warning:faking process ID in myGetProcessID" myGetProcessID = Posix.getProcessID
return 12345
#endif #endif
\end{code} \end{code}
Supports Markdown
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