From: simonmar <unknown>
Date: Fri, 27 Oct 2000 14:55:01 +0000 (+0000)
Subject: [project @ 2000-10-27 14:55:01 by simonmar]
X-Git-Tag: Approximately_9120_patches~3480
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=22dcfa7c2e3629c2b312cea1e71a6a3e00ed894b;p=ghc-hetmet.git

[project @ 2000-10-27 14:55:01 by simonmar]
don't fake the processID
---

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 471089d..3a0da47 100644
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -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}