Commit 5d621d59 authored by ian@well-typed.com's avatar ian@well-typed.com

Add a test for #8035; patch from errge

parent 3248b3a7
{-# LANGUAGE ScopedTypeVariables #-}
import Control.Exception
import Control.Monad
import GHC.Conc
main = join $ atomically $ do
catchSTM
(throwSTM ThreadKilled `orElse` return (putStrLn "wtf"))
(\(e::SomeException) -> return (putStrLn "ok"))
......@@ -179,3 +179,4 @@ test('T7919', [extra_clean(['T7919A.o','T7919A.hi',
when(fast(),skip) ],
compile_and_run, [''])
test('T8035', normal, compile_and_run, [''])
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment