Update dependencies
[hsc2hs.git] / Common.hs
index e7ecf94..0c60ca1 100644 (file)
--- a/Common.hs
+++ b/Common.hs
@@ -6,36 +6,13 @@ import qualified Control.Exception as Exception
 import Control.Monad            ( when )
 import System.IO
 
-#if __GLASGOW_HASKELL__ >= 604
 import System.Process           ( runProcess, waitForProcess )
-#define HAVE_runProcess
-#endif
 
 import System.Cmd               ( rawSystem )
-#ifndef HAVE_runProcess
-import System.Cmd               ( system )
-#endif
 
 import System.Exit              ( ExitCode(..), exitWith )
 import System.Directory         ( removeFile )
 
-data Flag
-    = Help
-    | Version
-    | Template  String
-    | Compiler  String
-    | Linker    String
-    | CompFlag  String
-    | LinkFlag  String
-    | NoCompile
-    | CrossCompile
-    | CrossSafe
-    | Include   String
-    | Define    String (Maybe String)
-    | Output    String
-    | KeepFiles
-    | Verbose
-
 die :: String -> IO a
 die s = hPutStr stderr s >> exitWith (ExitFailure 1)
 
@@ -81,14 +58,10 @@ rawSystemWithStdOutL :: String -> Bool -> FilePath -> [String] -> FilePath -> IO
 rawSystemWithStdOutL action flg prog args outFile = do
   let cmdLine = prog++" "++unwords args++" >"++outFile
   when flg (hPutStrLn stderr ("Executing: " ++ cmdLine))
-#ifndef HAVE_runProcess
-  exitStatus <- system cmdLine
-#else
   hOut <- openFile outFile WriteMode
   process <- runProcess prog args Nothing Nothing Nothing (Just hOut) Nothing
   exitStatus <- waitForProcess process
   hClose hOut
-#endif
   case exitStatus of
     ExitFailure exitCode -> die $ action ++ " failed "
                                ++ "(exit code " ++ show exitCode ++ ")\n"