testsuite/tests/concurrent/should_run/T5866.hs


1
2
3
4
5
6
7
8
9
10

import GHC.Conc
import Control.Exception
import System.IO.Unsafe
import System.Timeout

main :: IO ()
main = do
    x <- unsafeInterleaveIO $ atomically retry
    _ <- timeout 500000 $ evaluate x
    evaluate x