[project @ 2005-01-05 11:17:46 by malcolm]

`rawSystem` is only available in GHC.

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index 0ad0a03..ede930b 100644 (file)
--- a/ghc/utils/hsc2hs/Main.hs
+++ b/ghc/utils/hsc2hs/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fffi -cpp #-}
 
 ------------------------------------------------------------------------
 {-# OPTIONS -fffi -cpp #-}
 
 ------------------------------------------------------------------------

--- $Id: Main.hs,v 1.61 2005/01/05 10:26:45 simonmar Exp $
+-- $Id: Main.hs,v 1.62 2005/01/05 11:17:46 malcolm Exp $

 --
 -- Program for converting .hsc files to .hs files, by converting the
 -- file into a C program which is run to generate the Haskell source.
 --
 -- Program for converting .hsc files to .hs files, by converting the
 -- file into a C program which is run to generate the Haskell source.

@@ -17,8 +17,6 @@ import System.Console.GetOpt
 import GetOpt
 #endif
 
 import GetOpt
 #endif
 

-import Compat.RawSystem        ( rawSystem )
-

 import System        (getProgName, getArgs, ExitCode(..), exitWith, system)
 import Directory     (removeFile,doesFileExist)
 import Monad         (MonadPlus(..), liftM, liftM2, when)
 import System        (getProgName, getArgs, ExitCode(..), exitWith, system)
 import Directory     (removeFile,doesFileExist)
 import Monad         (MonadPlus(..), liftM, liftM2, when)

@@ -36,6 +34,12 @@ import CString
 #endif
 
 
 #endif
 
 

+#ifdef __GLASGOW_HASKELL__
+import Compat.RawSystem        ( rawSystem )
+#else
+rawSystem prog args = system (prog++unwords args)
+#endif
+

 version :: String
 version = "hsc2hs version 0.66\n"
 
 version :: String
 version = "hsc2hs version 0.66\n"