Commit c577cdfc authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix ioeGetFileName001 on Windows

parent 1366b7ef
-- !!! test ioeGetFileName
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
main = do
h <- openFile "ioeGetFileName001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode h True
hSeek h SeekFromEnd 0
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment