...
 
Commits (15)
...@@ -330,10 +330,7 @@ interruptProcessGroupOfInternal ph = do ...@@ -330,10 +330,7 @@ interruptProcessGroupOfInternal ph = do
withProcessHandle ph $ \p_ -> do withProcessHandle ph $ \p_ -> do
case p_ of case p_ of
ClosedHandle _ -> return () ClosedHandle _ -> return ()
_ -> do let h = case p_ of _ -> do let h = phdlProcessHandle p_
OpenHandle x -> x
OpenExtHandle x _ -> x
_ -> error "interruptProcessGroupOfInternal"
#if mingw32_HOST_OS #if mingw32_HOST_OS
pid <- getProcessId h pid <- getProcessId h
generateConsoleCtrlEvent cTRL_BREAK_EVENT pid generateConsoleCtrlEvent cTRL_BREAK_EVENT pid
......
# Changelog for [`process` package](http://hackage.haskell.org/package/process) # Changelog for [`process` package](http://hackage.haskell.org/package/process)
## 1.6.8.2 *March 2020*
* Fix another process wait bug on Windows.
## 1.6.8.1 *March 2020*
* Fix a few warnings on Windows.
## 1.6.8.0 *February 2020* ## 1.6.8.0 *February 2020*
* Fix several bugs on Windows where use of process jobs would result * Fix several bugs on Windows where use of process jobs would result
......
name: process name: process
version: 1.6.8.0 version: 1.6.8.2
-- NOTE: Don't forget to update ./changelog.md -- NOTE: Don't forget to update ./changelog.md
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
......
bye bye bye bye
ExitFailure 120 ExitSuccess