libraries/base/tests/T13525.hs


1
2
3
4
5
6
7
8
9
10

import System.Posix.Files
import System.IO
import System.Timeout

main :: IO ()
main = do
    createNamedPipe "test" accessModes
    h <- openFile "test" ReadMode
    hWaitForInput h (5 * 1000)
    return ()