blob: bc182c53afeb311a88e840c2067e2fa7247b7225 (
plain)
1
2
3
4
5
6
7
8
9
|
-- 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
|