diff options
Diffstat (limited to 'libraries/base/tests/T13525.hs')
| -rw-r--r-- | libraries/base/tests/T13525.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libraries/base/tests/T13525.hs b/libraries/base/tests/T13525.hs index 1bb01b6a18..b4b589e0b4 100644 --- a/libraries/base/tests/T13525.hs +++ b/libraries/base/tests/T13525.hs @@ -1,7 +1,10 @@ +import System.Posix.Files import System.IO import System.Timeout main :: IO () main = do - hWaitForInput stdin (5 * 1000) + createNamedPipe "test" accessModes + h <- openFile "test" ReadMode + hWaitForInput h (5 * 1000) return () |