From: Ian Lynagh <igloo@earth.li>
Date: Wed, 18 Oct 2006 23:05:55 +0000 (+0000)
Subject: Fix the build with GHC 6.2.2
X-Git-Tag: 2006-10-22~7
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=22b39e40ba469e0ab46dd248ef5aaf46f8327940;p=ghc-hetmet.git

Fix the build with GHC 6.2.2
---

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index 874387f..43de6d1 100644
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -51,7 +51,6 @@ import Data.IORef
 import Data.Int
 import Control.Monad
 import System.Exit
-import System.Cmd
 import System.Environment
 import System.IO
 import SYSTEM_IO_ERROR as IO
@@ -82,9 +81,11 @@ import Text.Regex
 
 #if __GLASGOW_HASKELL__ < 603
 -- rawSystem comes from libghccompat.a in stage1
-import Compat.RawSystem	( rawSystem )
+import Compat.RawSystem ( rawSystem )
+import System.Cmd       ( system )
 import GHC.IOBase       ( IOErrorType(..) ) 
 #else
+import System.Cmd       ( rawSystem, system )
 import System.Process	( runInteractiveProcess, getProcessExitCode )
 import Control.Concurrent( forkIO, newChan, readChan, writeChan )
 import Data.Char        ( isSpace )