[commit: testsuite] master: Follow the removal of blocked in base (74db433)

Ian Lynagh igloo at earth.li
Tue Feb 19 22:08:05 CET 2013


Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/74db433339c6e688d7dbd52d5b88a360cae02ab7

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

commit 74db433339c6e688d7dbd52d5b88a360cae02ab7
Author: Ian Lynagh <ian at well-typed.com>
Date:   Tue Feb 19 19:20:21 2013 +0000

    Follow the removal of blocked in base

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

 tests/concurrent/should_run/conc069.hs     |    2 +-
 tests/concurrent/should_run/conc069.stdout |    8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/concurrent/should_run/conc069.hs b/tests/concurrent/should_run/conc069.hs
index d2947a2..ec2af5d 100644
--- a/tests/concurrent/should_run/conc069.hs
+++ b/tests/concurrent/should_run/conc069.hs
@@ -15,5 +15,5 @@ main = do
 
 stat = do
   x <- isCurrentThreadBound
-  y <- blocked
+  y <- getMaskingState
   print (x,y)
diff --git a/tests/concurrent/should_run/conc069.stdout b/tests/concurrent/should_run/conc069.stdout
index 240e16e..0883f13 100644
--- a/tests/concurrent/should_run/conc069.stdout
+++ b/tests/concurrent/should_run/conc069.stdout
@@ -1,4 +1,4 @@
-(False,False)
-(False,True)
-(True,False)
-(True,True)
+(False,Unmasked)
+(False,MaskedInterruptible)
+(True,Unmasked)
+(True,MaskedInterruptible)





More information about the ghc-commits mailing list