|
-- Test that we can call exitFailure in a forked process, and have it
|
|
-- communicated properly to the parent.
|
|
import System.Exit
|
|
import System.Posix.Process
|
|
main = do
|
|
p <- forkProcess $ exitWith (ExitFailure 72)
|
|
r <- getProcessStatus True False p
|
|
print r
|
|
|