diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-02-19 19:20:21 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-02-19 19:20:21 +0000 |
| commit | f65de9e52711bf2399b7614472119efd1b68512a (patch) | |
| tree | 09fb80b930a7ea3d8b89452eaba9561efdfb5e5a /testsuite/tests/concurrent | |
| parent | 52ea416f016e214b8421ad3db3c5049fa93dd574 (diff) | |
| download | haskell-f65de9e52711bf2399b7614472119efd1b68512a.tar.gz | |
Follow the removal of blocked in base
Diffstat (limited to 'testsuite/tests/concurrent')
| -rw-r--r-- | testsuite/tests/concurrent/should_run/conc069.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/concurrent/should_run/conc069.stdout | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc069.hs b/testsuite/tests/concurrent/should_run/conc069.hs index d2947a2b10..ec2af5db2e 100644 --- a/testsuite/tests/concurrent/should_run/conc069.hs +++ b/testsuite/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/testsuite/tests/concurrent/should_run/conc069.stdout b/testsuite/tests/concurrent/should_run/conc069.stdout index 240e16e63f..0883f133dc 100644 --- a/testsuite/tests/concurrent/should_run/conc069.stdout +++ b/testsuite/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) |