Use rawSystem from libghccompat.a
import System.Exit
import Data.Char
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
main = do
args <- getArgs
dieProg :: String -> IO a
dieProg msg = do p <- getProgName; die (p ++ ": " ++ msg)
dieProg :: String -> IO a
dieProg msg = do p <- getProgName; die (p ++ ": " ++ msg)
-
-#if __GLASGOW_HASKELL__ < 603
-#include "../../../libraries/base/System/RawSystem.hs-inc"
-#endif