[project @ 2001-03-27 16:33:17 by rrt]

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

diff --git a/ghc/utils/hsc2hs/KludgedSystem.hs b/ghc/utils/hsc2hs/KludgedSystem.hs
index 0b5bcd4..6f160d7 100644 (file)
--- a/ghc/utils/hsc2hs/KludgedSystem.hs
+++ b/ghc/utils/hsc2hs/KludgedSystem.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -cpp -fglasgow-exts #-}
 -----------------------------------------------------------------------------
--- $Id: KludgedSystem.hs,v 1.4 2001/03/14 12:13:02 rrt Exp $
+-- $Id: KludgedSystem.hs,v 1.5 2001/03/27 16:33:17 rrt 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)
@@ -34,6 +34,6 @@ system cmd = do
 foreign import "_getpid" unsafe getProcessID :: IO Int
 
 defaultCompiler :: String
-defaultCompiler = "gcc -mno-cygwin"
+defaultCompiler = "gcc -mno-cygwin -mwin32"
 
 #endif /* mingw32_TARGET_OS */