From: sewardj <unknown>
Date: Wed, 4 Jul 2001 09:18:38 +0000 (+0000)
Subject: [project @ 2001-07-04 09:18:38 by sewardj]
X-Git-Tag: Approximately_9120_patches~1620
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7a1dcd6a58823324be00a2c8aef122bb57624a5f;p=ghc-hetmet.git

[project @ 2001-07-04 09:18:38 by sewardj]
Un-break on Unix.
---

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