base: Fix hWaitForInput with timeout on POSIX
[ghc.git] / libraries / base / tests / T13525.hs
1 import System.Posix.Files
2 import System.IO
3 import System.Timeout
4
5 main :: IO ()
6 main = do
7 createNamedPipe "test" accessModes
8 h <- openFile "test" ReadMode
9 hWaitForInput h (5 * 1000)
10 return ()