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

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

diff --git a/ghc/tests/lib/IO/ioeGetErrorString001.hs b/ghc/tests/lib/IO/ioeGetErrorString001.hs
index b2f84f6..dc47f91 100644 (file)
--- a/ghc/tests/lib/IO/ioeGetErrorString001.hs
+++ b/ghc/tests/lib/IO/ioeGetErrorString001.hs
@@ -5,6 +5,7 @@ import Maybe
 
 main = do
   h <- openFile "ioeGetErrorString001.hs" ReadMode
+  hSetBinaryMode h True
   hSeek h SeekFromEnd 0
   (hGetChar h >> return ()) `catch`
        \e -> if isEOFError e