From 22b39e40ba469e0ab46dd248ef5aaf46f8327940 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 18 Oct 2006 23:05:55 +0000 Subject: [PATCH] Fix the build with GHC 6.2.2 --- compiler/main/SysTools.lhs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 ) -- 1.7.10.4