export CreateProcess fields from Utility.Process
update code to avoid cwd and env redefinition warnings
This commit is contained in:
parent
6eb5e6c135
commit
a44fd2c019
31 changed files with 458 additions and 480 deletions
|
@ -16,7 +16,6 @@ import Control.Concurrent.Async
|
|||
import System.Posix.Process
|
||||
#endif
|
||||
import qualified Control.Exception as E
|
||||
import System.Process (env)
|
||||
|
||||
{- Runs an operation, at batch priority.
|
||||
-
|
||||
|
|
|
@ -37,8 +37,8 @@ data CoProcessSpec = CoProcessSpec
|
|||
}
|
||||
|
||||
start :: Int -> FilePath -> [String] -> Maybe [(String, String)] -> IO CoProcessHandle
|
||||
start numrestarts cmd params env = do
|
||||
s <- start' $ CoProcessSpec numrestarts cmd params env
|
||||
start numrestarts cmd params environ = do
|
||||
s <- start' $ CoProcessSpec numrestarts cmd params environ
|
||||
newMVar s
|
||||
|
||||
start' :: CoProcessSpec -> IO CoProcessState
|
||||
|
|
|
@ -15,7 +15,6 @@ import Utility.Process
|
|||
import Utility.FileSystemEncoding
|
||||
import Utility.Misc
|
||||
|
||||
import System.Process
|
||||
import Data.List
|
||||
import Data.Char
|
||||
import Control.Applicative
|
||||
|
|
|
@ -10,7 +10,7 @@
|
|||
|
||||
module Utility.Process (
|
||||
module X,
|
||||
CreateProcess,
|
||||
CreateProcess(..),
|
||||
StdHandle(..),
|
||||
readProcess,
|
||||
readProcessEnv,
|
||||
|
|
|
@ -9,7 +9,6 @@ module Utility.SafeCommand where
|
|||
|
||||
import System.Exit
|
||||
import Utility.Process
|
||||
import System.Process (env)
|
||||
import Data.String.Utils
|
||||
import Control.Applicative
|
||||
import System.FilePath
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue