tests/forkprocess01.hs


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 exitFailure
  r <- getProcessStatus True False p
  print r