[commit: testsuite] master: small tidyup (ee9acc4)

[Simon Marlow]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/ee9acc42e0f698b94f42c3ac5f30d84cae2e679f

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

commit ee9acc42e0f698b94f42c3ac5f30d84cae2e679f
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Feb 20 09:25:43 2013 +0000

    small tidyup

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

 tests/concurrent/should_run/conc069.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/concurrent/should_run/conc069.hs b/tests/concurrent/should_run/conc069.hs
index ec2af5d..5bf619b 100644
--- a/tests/concurrent/should_run/conc069.hs
+++ b/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