Commit 259224e3 authored by Ian Lynagh's avatar Ian Lynagh

Fix hSeek002 on Windows

parent b78e0085
......@@ -4,14 +4,14 @@ module Main(main) where
import IO
import Directory ( removeFile )
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
main :: IO ()
main = do
hdl <- openFile "hSeek002.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode hdl True
#endif
flg <- hIsEOF hdl
......
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