[commit: unix] master: Terminated has an extra field now (68a55ac)

Simon Marlow marlowsd at gmail.com
Wed Jan 30 12:06:46 CET 2013


Repository : ssh://darcs.haskell.org//srv/darcs/packages/unix

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/68a55ac9be8ce183cb39276953134d00e2856184

>---------------------------------------------------------------

commit 68a55ac9be8ce183cb39276953134d00e2856184
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Jan 30 11:06:31 2013 +0000

    Terminated has an extra field now

>---------------------------------------------------------------

 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)"
 





More information about the ghc-commits mailing list