ghc/tests/lib/IO/hIsEOF001.hs

   1 -- !!! hIsEOF (on stdout)
   2
   3 import IO ( hIsEOF, stdout )
   4
   5 main = do
   6   flg <- hIsEOF stdout `catch` \ _ -> putStrLn "hIsEOF failed" >> return False
   7   print flg