diff options
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 |