From 4ef06094335fb039f4228a2a89ebdb7e6e02eaef Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 14 Jun 2013 17:59:22 -0400 Subject: [PATCH] got file descriptors mixed up in last commit --- Utility/CoProcess.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/CoProcess.hs b/Utility/CoProcess.hs index ec24c4dcc0..700ef6eb19 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 ()