Commit b6d8c9dc authored by Mart Lubbers's avatar Mart Lubbers

System.process: also close stdoutout

parent d33e042c
Pipeline #8193 failed with stage
in 1 minute and 23 seconds
......@@ -133,6 +133,8 @@ where
parentProcess :: !Int !Int !Int!Int !Int !Int !Int !Int !*World -> (!MaybeOSError (!ProcessHandle, !ProcessIO), !*World)
parentProcess pipeStdIn pipeStdOutOut pipeStdOutIn pipeStdErrOut pipeStdErrIn pid pipeExecErrorOut pipeExecErrorIn world
# (res, world) = close pipeStdOutIn world
| res == -1 = getLastOSError world
# (res, world) = close pipeStdErrIn world
| res == -1 = getLastOSError world
# (mbPHandle, world) = runProcessParentProcessCheckError pid pipeExecErrorOut pipeExecErrorIn world
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment