Fold integer-simple.git into ghc.git (re #8545)
[ghc.git] / testsuite / tests / perf / should_run / T5205.hs
1
2 import Control.Concurrent
3 import Control.Monad
4
5 main :: IO ()
6 main = do t <- forkIO (x >> x)
7 threadDelay 1000000
8 killThread t
9 putStrLn "Done"
10
11 x :: IO ()
12 x = forever yield
13