summaryrefslogtreecommitdiff
path: root/Utility/CoProcess.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Utility/CoProcess.hs')
-rw-r--r--Utility/CoProcess.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Utility/CoProcess.hs b/Utility/CoProcess.hs
index 67f861bb3..7a2a5fe8e 100644
--- a/Utility/CoProcess.hs
+++ b/Utility/CoProcess.hs
@@ -17,9 +17,9 @@ import Common
type CoProcessHandle = (ProcessHandle, Handle, Handle, CreateProcess)
-start :: FilePath -> [String] -> IO CoProcessHandle
-start command params = do
- (from, to, _err, pid) <- runInteractiveProcess command params Nothing Nothing
+start :: FilePath -> [String] -> Maybe [(String, String)] -> IO CoProcessHandle
+start command params env = do
+ (from, to, _err, pid) <- runInteractiveProcess command params Nothing env
return (pid, to, from, proc command params)
stop :: CoProcessHandle -> IO ()