[commit: ghc] master: Stop using the deprecated System.Cmd (6c743b6)
Ian Lynagh
igloo at earth.li
Fri Feb 15 23:56:03 CET 2013
Repository : ssh://darcs.haskell.org//srv/darcs/ghc
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6c743b6cab7632779d6509c2f6de1e9830acd263
>---------------------------------------------------------------
commit 6c743b6cab7632779d6509c2f6de1e9830acd263
Author: Ian Lynagh <ian at well-typed.com>
Date: Fri Feb 15 21:51:25 2013 +0000
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 c5d2808..ec7e522 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 6e9dba6..2e7bab6 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 7c30647..1673e7b 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
More information about the ghc-commits
mailing list