diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2013-02-20 09:25:43 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2013-02-20 09:25:43 +0000 |
| commit | f2a8479da2c984a6d2aa44a02c1817e064d3e7e1 (patch) | |
| tree | 8c2d2f87fac2235e963a88f033d36235ef13eac4 /testsuite | |
| parent | dcbd5a50d93dac85f9b0ac69e0077a867e6800ea (diff) | |
| download | haskell-f2a8479da2c984a6d2aa44a02c1817e064d3e7e1.tar.gz | |
small tidyup
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/concurrent/should_run/conc069.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc069.hs b/testsuite/tests/concurrent/should_run/conc069.hs index ec2af5db2e..5bf619bec1 100644 --- a/testsuite/tests/concurrent/should_run/conc069.hs +++ b/testsuite/tests/concurrent/should_run/conc069.hs @@ -6,11 +6,11 @@ main = do m <- newEmptyMVar forkIO (do stat; putMVar m ()) takeMVar m - mask $ \_ -> forkIO (do stat; putMVar m ()) + mask_ $ forkIO (do stat; putMVar m ()) takeMVar m forkOS (do stat; putMVar m ()) takeMVar m - mask $ \_ -> forkOS (do stat; putMVar m ()) + mask_ $ forkOS (do stat; putMVar m ()) takeMVar m stat = do |