From 22dcfa7c2e3629c2b312cea1e71a6a3e00ed894b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 27 Oct 2000 14:55:01 +0000
Subject: [PATCH] [project @ 2000-10-27 14:55:01 by simonmar] don't fake the
processID
---
ghc/compiler/utils/Util.lhs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 471089d75e8d..3a0da471d414 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}
--
GitLab