X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Flib%2FIO%2FhIsEOF002.hs;h=78a654afb65a76cf601f80d767e1a09e419ea5d3;hb=30a35f3dc1800c77bf8fa4bb3a3687a14921bf67;hp=a12f9b95cea27b05dcb45f4a1084873e97b77f94;hpb=4f3c6654c08dd84bdabb8a9cac7dfa8a64a5d9ae;p=ghc-hetmet.git

diff --git a/ghc/tests/lib/IO/hIsEOF002.hs b/ghc/tests/lib/IO/hIsEOF002.hs
index a12f9b9..78a654a 100644
--- a/ghc/tests/lib/IO/hIsEOF002.hs
+++ b/ghc/tests/lib/IO/hIsEOF002.hs
@@ -4,6 +4,7 @@ import IO
 
 main = do
   h <- openFile "hIsEOF002.hs" ReadMode
+  hSetBinaryMode h True
   hSetBuffering h NoBuffering
   hSeek h SeekFromEnd 0
   hIsEOF h >>= print
@@ -38,6 +39,7 @@ main = do
   hClose h
 
   h <- openFile "hIsEOF002.out" ReadWriteMode
+  hSetBinaryMode h True
   hSetBuffering h NoBuffering
   hSeek h SeekFromEnd 0
   hIsEOF h >>= print