From 68a55ac9be8ce183cb39276953134d00e2856184 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 30 Jan 2013 11:06:31 +0000 Subject: Terminated has an extra field now --- tests/libposix/posix004.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests') 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)" -- cgit v1.2.3