+ installHandler sigCHLD Ignore Nothing
+ -- avoid strange interaction with waitpid():
+ installHandler sigCONT Ignore Nothing
+ mpid <- forkProcess
+ exit_code <- case mpid of
+ Nothing -> do -- Child
+ executeFile pgm True quoteargs Nothing
+ exitWith (ExitFailure 127)
+ -- NOT REACHED
+ return ExitSuccess
+ Just child -> do -- Parent
+ Just (Exited res) <- getProcessStatus True True child
+ return res