diff options
Diffstat (limited to 'Utility/CoProcess.hs')
| -rw-r--r-- | Utility/CoProcess.hs | 6 |
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 () |