Terminated has an extra field now
authorSimon Marlow <marlowsd@gmail.com>
Wed, 30 Jan 2013 11:06:31 +0000 (11:06 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 30 Jan 2013 11:06:31 +0000 (11:06 +0000)
tests/libposix/posix004.hs

index 20e2af2..de1ec74 100644 (file)
@@ -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)"