diff options
Diffstat (limited to 'testsuite/tests/concurrent/should_run/conc024.hs')
-rw-r--r-- | testsuite/tests/concurrent/should_run/conc024.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc024.hs b/testsuite/tests/concurrent/should_run/conc024.hs index 7d8662ae08..e7f9b38033 100644 --- a/testsuite/tests/concurrent/should_run/conc024.hs +++ b/testsuite/tests/concurrent/should_run/conc024.hs @@ -10,6 +10,6 @@ import System.Mem main = do id <- myThreadId forkIO (catch (do m <- newEmptyMVar; takeMVar m) - (\e -> throwTo id (e::SomeException))) + (\e -> throwTo id (e::SomeExceptionWithLocation))) catch (do yield; performGC; threadDelay 1000000) - (\e -> print (e::SomeException)) + (\e -> print (e::SomeExceptionWithLocation)) |