From: qrczak <unknown>
Date: Mon, 5 Feb 2001 22:02:18 +0000 (+0000)
Subject: [project @ 2001-02-05 22:02:18 by qrczak]
X-Git-Tag: Approximately_9120_patches~2742
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=eea44bbb5baa7212f120ab96c8e9822a925dc2d4;p=ghc-hetmet.git

[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
--- 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)
 --
@@ -23,9 +23,6 @@ import Monad       (liftM, liftM2, when)
 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"
@@ -487,7 +484,4 @@ kludgedSystem cmd
 
 #ifdef mingw32_TARGET_OS
 foreign import "_getpid" myGetProcessID :: IO Int 
-#else
-myGetProcessID :: IO Int
-myGetProcessID = Posix.getProcessID
 #endif