[commit: ghc] wip/type-app: Fix broken test code (572d846)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/type-app
Link       : http://ghc.haskell.org/trac/ghc/changeset/572d8461727d035d030d043ae58377f69524af08/ghc

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

commit 572d8461727d035d030d043ae58377f69524af08
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Wed Jul 29 17:03:18 2015 -0400

    Fix broken test code


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

572d8461727d035d030d043ae58377f69524af08
 testsuite/tests/rts/T9045.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testsuite/tests/rts/T9045.hs b/testsuite/tests/rts/T9045.hs
index 1e581ef..f52db46 100644
--- a/testsuite/tests/rts/T9045.hs
+++ b/testsuite/tests/rts/T9045.hs
@@ -14,7 +14,7 @@ main :: IO ()
 main = do
     hSetBuffering stdout NoBuffering
     [nthreads] <- fmap (map read) getArgs
-    tids <- replicateM nthreads . mask $ \_ -> forkIO $ return ()
+    tids <- replicateM nthreads (mask $ \_ -> forkIO $ return ())
     m <- newEmptyMVar
     -- do it in a subthread to avoid bound-thread overhead
     forkIO $ do mapM_ killThread tids; putMVar m ()