From: panne <unknown>
Date: Sat, 12 Apr 2003 16:27:24 +0000 (+0000)
Subject: [project @ 2003-04-12 16:27:24 by panne]
X-Git-Tag: Approx_11550_changesets_converted~965
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=babcfec5038b62ddbb5cc4b7d4a8390ed9c6f97b;p=ghc-hetmet.git

[project @ 2003-04-12 16:27:24 by panne]
Unbreak 2nd stage: GHC.Posix => System.Posix.Internals
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index e0b913f..2a5affe 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.149 2003/03/03 12:30:11 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.150 2003/04/12 16:27:24 panne Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -77,7 +77,7 @@ import GHC.Exts		( unsafeCoerce# )
 
 import Data.IORef	( IORef, newIORef, readIORef, writeIORef )
 
-import GHC.Posix	( setNonBlockingFD )
+import System.Posix.Internals ( setNonBlockingFD )
 
 -----------------------------------------------------------------------------
 
diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 71b7298..82967d0 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -92,7 +92,7 @@ import Directory	( doesFileExist, removeFile )
 
 #ifndef mingw32_HOST_OS
 #if __GLASGOW_HASKELL__ > 504
-import qualified GHC.Posix
+import qualified System.Posix.Internals
 #else
 import qualified Posix
 #endif
@@ -853,7 +853,7 @@ getExecDir :: IO (Maybe String) = do return Nothing
 foreign import ccall "_getpid" unsafe getProcessID :: IO Int -- relies on Int == Int32 on Windows
 #elif __GLASGOW_HASKELL__ > 504
 getProcessID :: IO Int
-getProcessID = GHC.Posix.c_getpid >>= return . fromIntegral
+getProcessID = System.Posix.Internals..c_getpid >>= return . fromIntegral
 #else
 getProcessID :: IO Int
 getProcessID = Posix.getProcessID