System/Process/Windows.hsc

@@ -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

changelog.md

 # 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*
 
 * Fix several bugs on Windows where use of process jobs would result

process.cabal

 name:          process
-version:       1.6.8.0
+version:       1.6.8.2
 -- NOTE: Don't forget to update ./changelog.md
 license:       BSD3
 license-file:  LICENSE

tests/T9775/T9775_good.stdout

 bye bye
-ExitFailure 120
+ExitSuccess