Ticket #7773: TC2.hs

File TC2.hs, 185 bytes (added by AndreasVoellmy, 13 months ago)

Test case demonstrating the problem.

Line 
1import Control.Concurrent
2import System.Posix.IO
3
4main = do
5  putStrLn "hello"
6  fd <- openFd "/dev/random" ReadOnly Nothing defaultFileFlags
7  threadWaitRead fd
8  putStrLn "goodbye"
9