Unverified Commit f87d99c8 authored by Ben Gamari's avatar Ben Gamari 🐢 Committed by GitHub

Merge pull request #172 from bgamari/master

Avoid redundant pattern match warning on Windows
parents 6f0c6445 062a69e2
......@@ -330,10 +330,7 @@ interruptProcessGroupOfInternal ph = do
withProcessHandle ph $ \p_ -> do
case p_ of
ClosedHandle _ -> return ()
_ -> do let h = case p_ of
OpenHandle x -> x
OpenExtHandle x _ -> x
_ -> error "interruptProcessGroupOfInternal"
_ -> do let h = phdlProcessHandle p_
#if mingw32_HOST_OS
pid <- getProcessId h
generateConsoleCtrlEvent cTRL_BREAK_EVENT pid
......
......@@ -875,6 +875,11 @@ waitForJobCompletion ( HANDLE hJob )
sizeof(JOBOBJECT_BASIC_PROCESS_ID_LIST),
NULL);
if (!success) {
maperrno();
return false;
}
if (!success && GetLastError() == ERROR_MORE_DATA) {
process_count *= 2;
free(pid_list);
......
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