{-# LANGUAGE UnicodeSyntax #-}
{-# LANGUAGE ScopedTypeVariables #-}

import Control.Exception
import Control.Concurrent.STM

main = do
  ms1 ← getMaskingState
  atomically $ (throwSTM Overflow) `catchSTM`
               (\(e ∷ SomeException) → return ())
  ms2 ← getMaskingState
  putStrLn $ show (ms1, ms2)

{-# LANGUAGE UnicodeSyntax #-}
{-# LANGUAGE ScopedTypeVariables #-}

import Control.Exception
import GHC.Conc

main = do
  ms1 ← getMaskingState
  atomically $ (throwSTM Overflow) `catchSTM`
               (\(e ∷ SomeException) → return ())
  ms2 ← getMaskingState
  putStrLn $ show (ms1, ms2)

Make this test not require the stm package
Make this test not require the stm package
