[project @ 2001-08-22 11:45:06 by sewardj]

[ghc-hetmet.git] / ghc / tests / lib / IO / hSeek003.hs

diff --git a/ghc/tests/lib/IO/hSeek003.hs b/ghc/tests/lib/IO/hSeek003.hs
index d6fa8e1..6ab3015 100644 (file)
--- a/ghc/tests/lib/IO/hSeek003.hs
+++ b/ghc/tests/lib/IO/hSeek003.hs
@@ -3,6 +3,9 @@ module Main(main) where
 
 import IO
 import Monad ( sequence )
+#if defined(__MINGW32__)
+import PrelHandle(hSetBinaryMode)
+#endif
 
 testPosns :: Handle -> BufferMode -> IO ()
 testPosns hdl bmo = do
@@ -15,7 +18,9 @@ bmo_ls = [NoBuffering, LineBuffering, BlockBuffering Nothing,
 
 main = do
   hdl  <- openFile "hSeek003.hs" ReadMode
+# if defined(__MINGW32__)
   hSetBinaryMode hdl True
+# endif
   sequence (zipWith testPosns (repeat hdl) bmo_ls)
   hClose hdl