[project @ 2001-02-13 15:53:10 by qrczak]

[ghc-hetmet.git] / ghc / utils / hsc2hs / KludgedSystem.hs

diff --git a/ghc/utils/hsc2hs/KludgedSystem.hs b/ghc/utils/hsc2hs/KludgedSystem.hs
index a33d843..04bbd73 100644 (file)
--- a/ghc/utils/hsc2hs/KludgedSystem.hs
+++ b/ghc/utils/hsc2hs/KludgedSystem.hs
@@ -1,16 +1,21 @@
 {-# OPTIONS -cpp -fglasgow-exts #-}
 -----------------------------------------------------------------------------
--- $Id: KludgedSystem.hs,v 1.1 2001/02/10 10:43:25 qrczak Exp $
+-- $Id: KludgedSystem.hs,v 1.2 2001/02/13 15:53:10 qrczak Exp $
 
 -- system that works feasibly under Windows (i.e. passes the command line to sh,
 -- because system() under Windows doesn't look at SHELL, and always uses CMD.EXE)
 
-module KludgedSystem (system) where
+module KludgedSystem (system, defaultCompiler) where
 
 #include "../../includes/config.h"
 
 #ifndef mingw32_TARGET_OS
+
 import System (system)
+
+defaultCompiler :: String
+defaultCompiler = "gcc"
+
 #else
 
 import qualified System
@@ -27,4 +32,7 @@ system cmd = do
 
 foreign import "_getpid" unsafe getProcessID :: IO Int
 
+defaultCompiler :: String
+defaultCompiler = "gcc -mno-cygwin"
+
 #endif /* mingw32_TARGET_OS */