on Windows, waitForProcess hangs forever on certain git commands #273
Description
Encountered in this cabal issue: haskell/cabal#8688
Running the following script will successfully execute the first process, but then will get stuck indefinitely while waiting for the second process to finish. The program cannot be killed with Ctr+C, but can be killed from the task manager.
If the process is killed and the git fetch command is run manually, the program will succeed if it's run again.
In WSL, the script ran successfully.
Reproduction steps:
Run the following script with cabal run <filename>:
{- cabal:
build-depends: base >= 4.16 && < 5
, process == 1.6.16.0
-}
import Data.Foldable
import System.Process
processes :: [CreateProcess]
processes =
[ CreateProcess {cmdspec = RawCommand "git" ["clone","--no-checkout","https://github.com/rtyley/small-test-repo"], cwd = Nothing, env = Nothing, std_in = Inherit, std_out = Inherit, std_err = Inherit, close_fds = False, create_group = False, delegate_ctlc = True, detach_console = False, create_new_console = False, new_session = False, child_group = Nothing, child_user = Nothing, use_process_jobs = True}
, CreateProcess {cmdspec = RawCommand "git" ["fetch"], cwd = Just "./small-test-repo", env = Nothing, std_in = Inherit, std_out = Inherit, std_err = Inherit, close_fds = False, create_group = False, delegate_ctlc = True, detach_console = False, create_new_console = False, new_session = False, child_group = Nothing, child_user = Nothing, use_process_jobs = True}
]
main :: IO ()
main = do
for_ processes $ \cp -> withCreateProcess cp $ \_ _ _ p -> do
waitForProcess p >>= printEnvironment:
- Windows 11
- ghc 9.4.4
- git version 2.38.1.windows.1
- process 1.6.16.0