diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-02-15 21:51:25 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-02-15 21:51:25 +0000 |
| commit | 6c743b6cab7632779d6509c2f6de1e9830acd263 (patch) | |
| tree | de396b31f354db5f1df0866f3645b998b960e275 | |
| parent | ed2108267b93e6abd769192bdc8fe86cefef7a70 (diff) | |
| download | haskell-6c743b6cab7632779d6509c2f6de1e9830acd263.tar.gz | |
Stop using the deprecated System.Cmd
| -rw-r--r-- | ghc/InteractiveUI.hs | 2 | ||||
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 3 | ||||
| -rw-r--r-- | 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 |