path: root/testsuite/tests/concurrent/should_run/T4030.hs

module Main where

import Control.Concurrent
import Control.Exception

main :: IO ()
main = do tid <- mask $ \_ -> forkIO $ let x = x in x
          killThread tid