ghc/tests/lib/IO/ioeGetFileName001.hs

   1 -- !!! test ioeGetFileName
   2
   3 import IO
   4 #if defined(__MINGW32__)
   5 import PrelHandle(hSetBinaryMode)
   6 #endif
   7
   8 main = do
   9   h <- openFile "ioeGetFileName001.hs" ReadMode
  10 # if defined(__MINGW32__)
  11   hSetBinaryMode h True
  12 # endif
  13   hSeek h SeekFromEnd 0
  14   (hGetChar h >> return ()) `catch`
  15         \e -> if isEOFError e
  16                 then print (ioeGetFileName e)
  17                 else putStrLn "failed."