got file descriptors mixed up in last commit

This commit is contained in:
Joey Hess 2013-06-14 17:59:22 -04:00
parent 0e05613083
commit 4ef0609433

View file

@ -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 ()