X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FUtil.lhs;h=423ab3f4dc2acc220216d610696571a601748e57;hb=4cef3202f8067fc3e9860e7a2b72c10b313b7366;hp=7cb7a3de512128da9b4a3a13eccfc65f2cbef133;hpb=8bbf522b424fae8c0189a8dd301344ab4216cb17;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 7cb7a3d..423ab3f 100644
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -52,7 +52,6 @@ module Util (
 	unzipWith
 
 	, global
-	, myGetProcessID
 
 #if __GLASGOW_HASKELL__ <= 408
 	, catchJust
@@ -73,9 +72,7 @@ import FastTypes
 #if __GLASGOW_HASKELL__ <= 408
 import Exception	( catchIO, justIoErrors, raiseInThread )
 #endif
-#ifndef mingw32_TARGET_OS
-import Posix
-#endif
+
 infixr 9 `thenCmp`
 \end{code}
 
@@ -726,11 +723,4 @@ catchJust = catchIO
 ioErrors  = justIoErrors
 throwTo   = raiseInThread
 #endif
-
-#ifdef mingw32_TARGET_OS
-foreign import "_getpid" myGetProcessID :: IO Int 
-#else
-myGetProcessID :: IO Int
-myGetProcessID = Posix.getProcessID
-#endif
 \end{code}