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

Fix hSeek003 on Windows

parent 259224e3
...@@ -4,7 +4,7 @@ module Main(main) where ...@@ -4,7 +4,7 @@ module Main(main) where
import IO import IO
import Monad ( sequence ) import Monad ( sequence )
#ifdef i386_unknown_mingw32 #ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode) import GHC.Handle(hSetBinaryMode)
#endif #endif
...@@ -19,7 +19,7 @@ bmo_ls = [NoBuffering, LineBuffering, BlockBuffering Nothing, ...@@ -19,7 +19,7 @@ bmo_ls = [NoBuffering, LineBuffering, BlockBuffering Nothing,
main = do main = do
hdl <- openFile "hSeek003.hs" ReadMode hdl <- openFile "hSeek003.hs" ReadMode
#ifdef i386_unknown_mingw32 #ifdef mingw32_HOST_OS
hSetBinaryMode hdl True hSetBinaryMode hdl True
#endif #endif
sequence (zipWith testPosns (repeat hdl) bmo_ls) sequence (zipWith testPosns (repeat hdl) bmo_ls)
......
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