libraries/base/tests/IO/hIsEOF001.hs


1
2
3
4
5
6
7
8

-- !!! hIsEOF (on stdout)

import System.IO ( hIsEOF, stdout )
import System.IO.Error

main = do
  flg <- hIsEOF stdout `catchIOError` \ _ -> putStrLn "hIsEOF failed" >> return False
  print flg