diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-06-14 17:59:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-06-14 17:59:22 -0400 |
| commit | aaae1dc2087cfe1b3f503e468bd6e8c626aa424c (patch) | |
| tree | 94bc379907fbe5f4771201f47651fae0142255b1 /Utility/CoProcess.hs | |
| parent | 7d41fb6b1844ccef6df8fc3175556b74f98097f8 (diff) | |
got file descriptors mixed up in last commit
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 ec24c4dcc..700ef6eb1 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 - (pid, to, from) <- startInteractiveProcess (coProcessCmd s) (coProcessParams s) (coProcessEnv s) + (pid, from, to) <- startInteractiveProcess (coProcessCmd s) (coProcessParams s) (coProcessEnv s) return $ CoProcessState pid to from s stop :: CoProcessHandle -> IO () |