[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