diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2016-01-26 12:36:21 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2016-01-26 12:37:29 +0000 |
commit | 3798b2aad8f62cb18e6147b54c57a9a4ad6c23f4 (patch) | |
tree | 829368730ae475c68a3d99c1af1b3baf18039aff /testsuite/tests/concurrent/should_run/conc012.hs | |
parent | f1885dfd7ee84fae478e2e8398d2eff14ee36b2c (diff) | |
download | haskell-3798b2aad8f62cb18e6147b54c57a9a4ad6c23f4.tar.gz |
Fix three broken tests involving exceptions
See comment:16 in Trac #10712. The tests were wrong, not GHC!
Diffstat (limited to 'testsuite/tests/concurrent/should_run/conc012.hs')
-rw-r--r-- | testsuite/tests/concurrent/should_run/conc012.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc012.hs b/testsuite/tests/concurrent/should_run/conc012.hs index a2f139e401..753fa894b6 100644 --- a/testsuite/tests/concurrent/should_run/conc012.hs +++ b/testsuite/tests/concurrent/should_run/conc012.hs @@ -14,8 +14,8 @@ stackoverflow n = n + stackoverflow n main = do let x = stackoverflow 1 - result <- newEmptyMVar - forkIO $ Control.Exception.catch (x `seq` putMVar result Finished) $ + result <- newEmptyMVar + forkIO $ Control.Exception.catch (evaluate x >> putMVar result Finished) $ \e -> putMVar result (Died e) res <- takeMVar result case res of |