diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-06-14 17:35:45 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-06-14 17:35:45 -0400 |
| commit | 7d41fb6b1844ccef6df8fc3175556b74f98097f8 (patch) | |
| tree | 9e78829b19d656bceddf39bcb8ac595f805ca2b4 /Utility/CoProcess.hs | |
| parent | 4f2d339fd7ce16b974702ee1179143cf449bc89c (diff) | |
Windows: Fix hang when adding several files at once.
Diffstat (limited to 'Utility/CoProcess.hs')
| -rw-r--r-- | Utility/CoProcess.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/CoProcess.hs b/Utility/CoProcess.hs index 534229d51..ec24c4dcc 100644 --- a/Utility/CoProcess.hs +++ b/Utility/CoProcess.hs @@ -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 () |