[project @ 2001-02-05 22:02:18 by qrczak]

Works under Linux again - Posix was not needed.

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index 67a85de..51faa50 100644 (file)
--- a/ghc/utils/hsc2hs/Main.hs
+++ b/ghc/utils/hsc2hs/Main.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
 -----------------------------------------------------------------------------

--- $Id: Main.hs,v 1.15 2001/02/05 18:01:39 rrt Exp $
+-- $Id: Main.hs,v 1.16 2001/02/05 22:02:18 qrczak Exp $

 --
 -- (originally "GlueHsc.hs" by Marcin 'Qrczak' Kowalczyk)
 --
 --
 -- (originally "GlueHsc.hs" by Marcin 'Qrczak' Kowalczyk)
 --

@@ -23,9 +23,6 @@ import Monad       (liftM, liftM2, when)
 import Char        (ord, intToDigit, isSpace, isAlpha, isAlphaNum, toUpper)
 import List        (intersperse)
 import Exception   (catchAllIO)
 import Char        (ord, intToDigit, isSpace, isAlpha, isAlphaNum, toUpper)
 import List        (intersperse)
 import Exception   (catchAllIO)

-#ifndef mingw32_TARGET_OS
-import Posix
-#endif

 
 version :: String
 version = "hsc2hs-0.64"
 
 version :: String
 version = "hsc2hs-0.64"

@@ -487,7 +484,4 @@ kludgedSystem cmd
 
 #ifdef mingw32_TARGET_OS
 foreign import "_getpid" myGetProcessID :: IO Int 
 
 #ifdef mingw32_TARGET_OS
 foreign import "_getpid" myGetProcessID :: IO Int 

-#else
-myGetProcessID :: IO Int
-myGetProcessID = Posix.getProcessID

 #endif
 #endif