testsuite/tests/rts/T8035.hs


1
2
3
4
5
6
7
8
9
10

{-# 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"))