[project @ 2001-06-01 13:07:35 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..5078388 100644 (file)
--- a/ghc/tests/lib/IO/hSeek004.hs
+++ b/ghc/tests/lib/IO/hSeek004.hs
@@ -4,4 +4,5 @@ import IO
 
 main = do
   h <- openFile "hSeek004.out" AppendMode
+  hSetBinaryMode h True
   try (hSeek h AbsoluteSeek 0) >>= print