diff options
Diffstat (limited to 'testsuite/tests/ghci/scripts/ghci015.hs')
| -rw-r--r-- | testsuite/tests/ghci/scripts/ghci015.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/ghci/scripts/ghci015.hs b/testsuite/tests/ghci/scripts/ghci015.hs index 0ff637f046..21a416686a 100644 --- a/testsuite/tests/ghci/scripts/ghci015.hs +++ b/testsuite/tests/ghci/scripts/ghci015.hs @@ -25,8 +25,8 @@ runTest loop = do forked loop args@(tc1, tc2, tmv, hisTId) = catch ((loop args) >>= setTMV . Just) hndlr `finally` setTMV Nothing where setTMV x = atomically (tryPutTMVar tmv x >> return ()) - hndlr (AsyncException ThreadKilled) = return () - hndlr e = throwTo hisTId e + hndlr ThreadKilled = return () + hndlr e = throwTo hisTId e goodLoop args@(tc1, tc2, tmv, hisTId) = do x <- atomically (readTChan tc1) |