Remove duplication between branches

sol · May 23, 2023 · e6667db · e6667db
1 parent 2404906
commit e6667db
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/System/Process/Typed.hs b/src/System/Process/Typed.hs
@@ -257,8 +257,7 @@ startProcess pConfig'@ProcessConfig {..} = liftIO $ do
                       -- then call waitForProcess ourselves
                       Left _ -> do
                           eres <- try $ P.terminateProcess pHandle
-                          ec <-
-                            case eres of
+                          case eres of
                               Left e
                                 -- On Windows, with the single-threaded runtime, it
                                 -- seems that if a process has already exited, the
@@ -272,9 +271,10 @@ startProcess pConfig'@ProcessConfig {..} = liftIO $ do
                                 -- Recommendation: always use the multi-threaded
                                 -- runtime!
                                 | isPermissionError e && not multiThreadedRuntime && isWindows ->
-                                  P.waitForProcess pHandle
-                                | otherwise -> throwIO e >> P.waitForProcess pHandle
-                              Right () -> P.waitForProcess pHandle
+                                  pure ()
+                                | otherwise -> throwIO e
+                              Right () -> pure ()
+                          ec <- P.waitForProcess pHandle
                           success <- atomically $ tryPutTMVar pExitCode ec
                           evaluate $ assert success ()