Commit 8c9ede99 authored by Ian Lynagh's avatar Ian Lynagh

Fix hIsEOF002 on Windows

parent a3b41b7d
-- !!! test hIsEOF in various buffering situations
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
main = do
h <- openFile "hIsEOF002.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode h True
#endif
hSetBuffering h NoBuffering
......@@ -44,7 +44,7 @@ main = do
hClose h
h <- openFile "hIsEOF002.out" ReadWriteMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode h True
#endif
hSetBuffering h NoBuffering
......
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