diff options
-rw-r--r-- | tests/libposix/posix004.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/libposix/posix004.hs b/tests/libposix/posix004.hs index 20e2af2..de1ec74 100644 --- a/tests/libposix/posix004.hs +++ b/tests/libposix/posix004.hs @@ -13,7 +13,7 @@ test1 = do forkProcess $ raiseSignal floatingPointException Just (pid, tc) <- getAnyProcessStatus True False case tc of - Terminated sig | sig == floatingPointException -> return () + Terminated sig _ | sig == floatingPointException -> return () _ -> error "unexpected termination cause" test2 = do @@ -38,7 +38,7 @@ test4 = do signalProcess killProcess pid Just (pid, tc) <- getAnyProcessStatus True True case tc of - Terminated sig | sig == killProcess -> return () + Terminated sig _ | sig == killProcess -> return () _ -> error "unexpected termination cause (5)" _ -> error "unexpected termination cause (4)" |