[project @ 2004-11-10 13:24:06 by simonmar]

Use rawSystem from libghccompat.a

diff --git a/ghc/utils/runghc/runghc.hs b/ghc/utils/runghc/runghc.hs
index be04cdf..a37fd83 100644 (file)
--- a/ghc/utils/runghc/runghc.hs
+++ b/ghc/utils/runghc/runghc.hs
@@ -29,12 +29,7 @@ import System.Directory
 import System.Exit
 import Data.Char
 
-#if __GLASGOW_HASKELL__ < 603
-import Foreign         ( withMany, withArray0, nullPtr, Ptr )
-import Foreign.C       ( CString, withCString, throwErrnoIfMinus1 )
-#else
-import System.Cmd      ( rawSystem )
-#endif
+import Compat.RawSystem        ( rawSystem )
 
 main = do 
   args <- getArgs
@@ -86,7 +81,3 @@ die msg = do hPutStr stderr msg; exitWith (ExitFailure 1)
 
 dieProg :: String -> IO a
 dieProg msg = do p <- getProgName; die (p ++ ": " ++ msg)
-
-#if __GLASGOW_HASKELL__ < 603
-#include "../../../libraries/base/System/RawSystem.hs-inc"
-#endif