Declare language extensions via `{-# LANGUAGE -#}`
[packages/unix.git] / tests / forkprocess01.hs
1 -- Test that we can call exitFailure in a forked process, and have it
2 -- communicated properly to the parent.
3 import System.Exit
4 import System.Posix.Process
5 main = do
6 p <- forkProcess $ exitWith (ExitFailure 72)
7 r <- getProcessStatus True False p
8 print r
9