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

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

diff --git a/ghc/tests/lib/IO/hSeek004.hs b/ghc/tests/lib/IO/hSeek004.hs
index 464fa05..bce8105 100644 (file)
--- a/ghc/tests/lib/IO/hSeek004.hs
+++ b/ghc/tests/lib/IO/hSeek004.hs
@@ -1,7 +1,13 @@
 -- !!! can't seek an AppendMode handle
 
 import IO
+#if defined(__MINGW32__)
+import PrelHandle(hSetBinaryMode)
+#endif
 
 main = do
   h <- openFile "hSeek004.out" AppendMode
+# if defined(__MINGW32__)
+  hSetBinaryMode h True
+# endif
   try (hSeek h AbsoluteSeek 0) >>= print