ghc/tests/io/should_run/io027.hs

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