projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-05-28 03:31:19 by sof]
[ghc-hetmet.git]
/
ghc
/
compiler
/
utils
/
Util.lhs
diff --git
a/ghc/compiler/utils/Util.lhs
b/ghc/compiler/utils/Util.lhs
index
7cb7a3d
..
423ab3f
100644
(file)
--- a/
ghc/compiler/utils/Util.lhs
+++ b/
ghc/compiler/utils/Util.lhs
@@
-52,7
+52,6
@@
module Util (
unzipWith
, global
unzipWith
, global
- , myGetProcessID
#if __GLASGOW_HASKELL__ <= 408
, catchJust
#if __GLASGOW_HASKELL__ <= 408
, catchJust
@@
-73,9
+72,7
@@
import FastTypes
#if __GLASGOW_HASKELL__ <= 408
import Exception ( catchIO, justIoErrors, raiseInThread )
#endif
#if __GLASGOW_HASKELL__ <= 408
import Exception ( catchIO, justIoErrors, raiseInThread )
#endif
-#ifndef mingw32_TARGET_OS
-import Posix
-#endif
+
infixr 9 `thenCmp`
\end{code}
infixr 9 `thenCmp`
\end{code}
@@
-726,11
+723,4
@@
catchJust = catchIO
ioErrors = justIoErrors
throwTo = raiseInThread
#endif
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}
\end{code}