10 lines
262 B
Haskell
10 lines
262 B
Haskell
|
-- 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
|
||
|
|