diff options
Diffstat (limited to 'tests/forkprocess01.hs')
-rw-r--r-- | tests/forkprocess01.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/forkprocess01.hs b/tests/forkprocess01.hs index b4bc78b..bc182c5 100644 --- a/tests/forkprocess01.hs +++ b/tests/forkprocess01.hs @@ -3,7 +3,7 @@ import System.Exit import System.Posix.Process main = do - p <- forkProcess exitFailure + p <- forkProcess $ exitWith (ExitFailure 72) r <- getProcessStatus True False p print r |