From 7a1dcd6a58823324be00a2c8aef122bb57624a5f Mon Sep 17 00:00:00 2001 From: sewardj Date: Wed, 4 Jul 2001 09:18:38 +0000 Subject: [PATCH] [project @ 2001-07-04 09:18:38 by sewardj] Un-break on Unix. --- ghc/utils/hsc2hs/KludgedSystem.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ghc/utils/hsc2hs/KludgedSystem.hs b/ghc/utils/hsc2hs/KludgedSystem.hs index 94a2441..66e900c 100644 --- 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.7 2001/07/03 16:57:03 sewardj Exp $ +-- $Id: KludgedSystem.hs,v 1.8 2001/07/04 09:18:38 sewardj 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) @@ -9,6 +9,8 @@ module KludgedSystem (system, defaultCompiler, progNameSuffix) where #include "../../includes/config.h" +import Config + #ifndef mingw32_TARGET_OS import System (system) @@ -23,7 +25,6 @@ import qualified System import System (ExitCode) import IO (bracket_) import Directory (removeFile) -import Config system :: String -> IO ExitCode system cmd = do -- 1.7.10.4