From 6c743b6cab7632779d6509c2f6de1e9830acd263 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 15 Feb 2013 21:51:25 +0000 Subject: Stop using the deprecated System.Cmd --- ghc/InteractiveUI.hs | 2 +- utils/ghc-pkg/Main.hs | 3 +-- utils/runghc/runghc.hs | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index c5d2808c44..ec7e5225df 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -81,7 +81,6 @@ import Exception hiding (catch) import Foreign.C import Foreign.Safe -import System.Cmd import System.Directory import System.Environment import System.Exit ( exitWith, ExitCode(..) ) @@ -89,6 +88,7 @@ import System.FilePath import System.IO import System.IO.Error import System.IO.Unsafe ( unsafePerformIO ) +import System.Process import Text.Printf #ifndef mingw32_HOST_OS diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 6e9dba6dab..2e7bab6cc4 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -21,7 +21,7 @@ import Distribution.Text import Distribution.Version import System.FilePath as FilePath import qualified System.FilePath.Posix as FilePath.Posix -import System.Cmd ( rawSystem ) +import System.Process import System.Directory ( getAppUserDataDirectory, createDirectoryIfMissing, getModificationTime ) import Text.Printf @@ -61,7 +61,6 @@ import System.Posix hiding (fdToHandle) #endif #if defined(GLOB) -import System.Process(runInteractiveCommand) import qualified System.Info(os) #endif diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs index 7c306475b6..1673e7bdeb 100644 --- a/utils/runghc/runghc.hs +++ b/utils/runghc/runghc.hs @@ -20,12 +20,12 @@ module Main (main) where import Control.Exception import Data.Monoid -import System.Cmd import System.Directory import System.Environment import System.Exit import System.FilePath import System.IO +import System.Process #if defined(mingw32_HOST_OS) import Foreign -- cgit v1.2.1