summaryrefslogtreecommitdiff
path: root/libraries/base/tests/T7773.hs
blob: 13ec40dadfb0841302e9037ac62d2bca9a1c2bff (plain)
1
2
3
4
5
6
7
8
9
import Control.Concurrent
import System.Posix.IO

main = do
  putStrLn "hello"
  fd <- openFd "/dev/random" ReadOnly Nothing defaultFileFlags
  threadWaitRead fd
  putStrLn "goodbye"