Add redundant waitForProcess to make duplication more obvious

It can never run because of the throwIO before it
sol · May 23, 2023 · 2404906 · 2404906
1 parent 971f04a
commit 2404906
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/System/Process/Typed.hs b/src/System/Process/Typed.hs
@@ -273,7 +273,7 @@ startProcess pConfig'@ProcessConfig {..} = liftIO $ do
                                 -- runtime!
                                 | isPermissionError e && not multiThreadedRuntime && isWindows ->
                                   P.waitForProcess pHandle
-                                | otherwise -> throwIO e
+                                | otherwise -> throwIO e >> P.waitForProcess pHandle
                               Right () -> P.waitForProcess pHandle
                           success <- atomically $ tryPutTMVar pExitCode ec
                           evaluate $ assert success ()