[project @ 2001-05-18 16:54:04 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / IO / hIsEOF001.hs

-- !!! hIsEOF (on stdout)

import IO ( hIsEOF, stdout )

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