testsuite: Widen acceptance window of T1969
[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