Commit babcfec5 authored by panne's avatar panne
Browse files

[project @ 2003-04-12 16:27:24 by panne]

Unbreak 2nd stage: GHC.Posix => System.Posix.Internals
parent e697a9e8
{-# 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 )
-----------------------------------------------------------------------------
......
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment