Windows: Fix hang when adding several files at once.

This commit is contained in:
Joey Hess 2013-06-14 17:35:45 -04:00
parent e02fdd2270
commit 0e05613083
4 changed files with 35 additions and 17 deletions

View file

@ -43,7 +43,7 @@ start restartable cmd params env = do
start' :: CoProcessSpec -> IO CoProcessState
start' s = do
(to, from, _err, pid) <- runInteractiveProcess (coProcessCmd s) (coProcessParams s) Nothing (coProcessEnv s)
(pid, to, from) <- startInteractiveProcess (coProcessCmd s) (coProcessParams s) (coProcessEnv s)
return $ CoProcessState pid to from s
stop :: CoProcessHandle -> IO ()