export CreateProcess fields from Utility.Process

update code to avoid cwd and env redefinition warnings
This commit is contained in:
Joey Hess 2014-06-10 19:20:14 -04:00
parent 6eb5e6c135
commit a44fd2c019
31 changed files with 458 additions and 480 deletions

View file

@ -28,9 +28,9 @@ start :: [FilePath] -> CommandStart
start [] = do
-- Like git status, when run without a directory, behave as if
-- given the path to the top of the repository.
cwd <- liftIO getCurrentDirectory
currdir <- liftIO getCurrentDirectory
top <- fromRepo Git.repoPath
start' [relPathDirToFile cwd top]
start' [relPathDirToFile currdir top]
start locs = start' locs
start' :: [FilePath] -> CommandStart