From: simonmar <unknown>
Date: Mon, 2 Feb 2004 10:07:37 +0000 (+0000)
Subject: [project @ 2004-02-02 10:07:37 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~109
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=11f81de1fa9ac05b9dd20b851076621d6f664c73

[project @ 2004-02-02 10:07:37 by simonmar]
Fix build
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 7d933c1..0908f2c 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -105,7 +105,7 @@ import Foreign
 import CString		( CString, peekCString )
 #endif
 
-#if __GLASGOW_HASKELL__ < 601
+#if __GLASGOW_HASKELL__ < 603
 import Foreign		( withMany, withArray0, nullPtr, Ptr )
 import CForeign		( CString, withCString, throwErrnoIfMinus1 )
 #else
@@ -776,7 +776,7 @@ traceCmd phase_name cmd_line action
 -- thare are not repeated here -- go look!
 
 
-#if __GLASGOW_HASKELL__ < 621
+#if __GLASGOW_HASKELL__ < 603
 
 rawSystem :: FilePath -> [String] -> IO ExitCode