[project @ 2001-06-01 13:07:35 by sewardj]

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

diff --git a/ghc/tests/lib/IO/readwrite001.hs b/ghc/tests/lib/IO/readwrite001.hs
index 69b41ca..c3b542d 100644 (file)
--- a/ghc/tests/lib/IO/readwrite001.hs
+++ b/ghc/tests/lib/IO/readwrite001.hs
@@ -9,6 +9,7 @@ main = do
   f <- doesFileExist "readwrite001.inout" 
   when f (removeFile "readwrite001.inout")
   hdl <- openFile "readwrite001.inout" ReadWriteMode
+  hSetBinaryMode hdl True
   hSetBuffering hdl LineBuffering
   hPutStr hdl "as"
   hSeek hdl AbsoluteSeek 0