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

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

diff --git a/ghc/tests/lib/IO/ioeGetHandle001.hs b/ghc/tests/lib/IO/ioeGetHandle001.hs
index 0d041e0..dc3d375 100644 (file)
--- a/ghc/tests/lib/IO/ioeGetHandle001.hs
+++ b/ghc/tests/lib/IO/ioeGetHandle001.hs
@@ -2,9 +2,15 @@
 
 import IO
 import Maybe
+#if defined(__MINGW32__)
+import PrelHandle(hSetBinaryMode)
+#endif
 
 main = do
   h <- openFile "ioeGetHandle001.hs" ReadMode
+# if defined(__MINGW32__)
+  hSetBinaryMode h True
+# endif
   hSeek h SeekFromEnd 0
   (hGetChar h >> return ()) `catch`
        \e -> if isEOFError e && fromJust (ioeGetHandle e) == h