1 -- !!! test ioeGetFileName
4 #if defined(__MINGW32__)
5 import PrelHandle(hSetBinaryMode)
9 h <- openFile "ioeGetFileName001.hs" ReadMode
10 # if defined(__MINGW32__)
14 (hGetChar h >> return ()) `catch`
16 then print (ioeGetFileName e)
17 else putStrLn "failed."