Commit 3ef56020 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Don't use 'delegate_ctlc' when bootstrapping GHC.

See discussion in #1763.
parent 337f9cd7
......@@ -379,7 +379,12 @@ rawSystemExitWithEnv verbosity path args env = do
hFlush stdout
(_,_,_,ph) <- createProcess $
(Process.proc path args) { Process.env = (Just env)
, Process.delegate_ctlc = True }
#ifndef BOOTSTRAPPING
-- delegate_ctlc has been added in process 1.2, and we still want to be able to
-- bootstrap GHC on systems not having that version
, Process.delegate_ctlc = True
#endif
}
exitcode <- waitForProcess ph
unless (exitcode == ExitSuccess) $ do
debug verbosity $ path ++ " returned " ++ show exitcode
......@@ -405,7 +410,12 @@ rawSystemIOWithEnv verbosity path args mcwd menv inp out err = do
, Process.std_in = mbToStd inp
, Process.std_out = mbToStd out
, Process.std_err = mbToStd err
, Process.delegate_ctlc = True }
#ifndef BOOTSTRAPPING
-- delegate_ctlc has been added in process 1.2, and we still want to be able to
-- bootstrap GHC on systems not having that version
, Process.delegate_ctlc = True
#endif
}
exitcode <- waitForProcess ph
unless (exitcode == ExitSuccess) $ do
debug verbosity $ path ++ " returned " ++ show exitcode
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment