diff options
-rw-r--r-- | tests/forkprocess01.hs | 2 | ||||
-rw-r--r-- | tests/forkprocess01.stdout | 2 |
2 files changed, 2 insertions, 2 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 diff --git a/tests/forkprocess01.stdout b/tests/forkprocess01.stdout index 423e57d..3c10134 100644 --- a/tests/forkprocess01.stdout +++ b/tests/forkprocess01.stdout @@ -1 +1 @@ -Just (Exited (ExitFailure 1)) +Just (Exited (ExitFailure 72)) |