Typo
[packages/base.git] / tests / T7773.hs
1 import Control.Concurrent
2 import System.Posix.IO
3
4 main = do
5 putStrLn "hello"
6 fd <- openFd "/dev/random" ReadOnly Nothing defaultFileFlags
7 threadWaitRead fd
8 putStrLn "goodbye"
9