From 14a05e622fd172d819e6557e013b634902396213 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 10 Nov 2004 13:24:06 +0000
Subject: [PATCH] [project @ 2004-11-10 13:24:06 by simonmar] Use rawSystem
 from libghccompat.a

---
 ghc/utils/runghc/runghc.hs |   11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/ghc/utils/runghc/runghc.hs b/ghc/utils/runghc/runghc.hs
index be04cdf..a37fd83 100644
--- 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
-- 
1.7.10.4