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

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

diff --git a/ghc/tests/lib/IO/readwrite002.hs b/ghc/tests/lib/IO/readwrite002.hs
index 3257cd6..0743e19 100644 (file)
--- a/ghc/tests/lib/IO/readwrite002.hs
+++ b/ghc/tests/lib/IO/readwrite002.hs
@@ -11,7 +11,7 @@ main = do
    f <- doesFileExist username
    when f (removeFile username)
    cd <- openFile username ReadWriteMode
---   hSetBinaryMode cd True
+   hSetBinaryMode cd True
    hSetBuffering stdin NoBuffering
    hSetBuffering stdout NoBuffering
    hSetBuffering cd NoBuffering