[project @ 2001-06-07 11:07:51 by sewardj]

Fix Unix world breakage.

diff --git a/ghc/tests/lib/IO/hGetLine001.stdout b/ghc/tests/lib/IO/hGetLine001.stdout
index 54b4bfc..a7171ce 100644 (file)
--- a/ghc/tests/lib/IO/hGetLine001.stdout
+++ b/ghc/tests/lib/IO/hGetLine001.stdout
@@ -1,6 +1,9 @@
 -- !!! testing hGetLine
 
 import IO
+#if defined(__MINGW32__)
+import PrelHandle(hSetBinaryMode)
+#endif
 
 -- one version of 'cat'
 main = do
@@ -10,7 +13,10 @@ main = do
   loop stdin 
 
   h <- openFile "hGetLine001.hs" ReadMode
+
+# if defined(__MINGW32__)
   hSetBinaryMode h True
+# endif
 
   hSetBuffering h NoBuffering
   loop h
@@ -25,6 +31,9 @@ main = do
 -- !!! testing hGetLine
 
 import IO
+#if defined(__MINGW32__)
+import PrelHandle(hSetBinaryMode)
+#endif
 
 -- one version of 'cat'
 main = do
@@ -34,7 +43,10 @@ main = do
   loop stdin 
 
   h <- openFile "hGetLine001.hs" ReadMode
+
+# if defined(__MINGW32__)
   hSetBinaryMode h True
+# endif
 
   hSetBuffering h NoBuffering
   loop h
@@ -49,6 +61,9 @@ main = do
 -- !!! testing hGetLine
 
 import IO
+#if defined(__MINGW32__)
+import PrelHandle(hSetBinaryMode)
+#endif
 
 -- one version of 'cat'
 main = do
@@ -58,7 +73,10 @@ main = do
   loop stdin 
 
   h <- openFile "hGetLine001.hs" ReadMode
+
+# if defined(__MINGW32__)
   hSetBinaryMode h True
+# endif
 
   hSetBuffering h NoBuffering
   loop h
@@ -73,6 +91,9 @@ main = do
 -- !!! testing hGetLine
 
 import IO
+#if defined(__MINGW32__)
+import PrelHandle(hSetBinaryMode)
+#endif
 
 -- one version of 'cat'
 main = do
@@ -82,7 +103,10 @@ main = do
   loop stdin 
 
   h <- openFile "hGetLine001.hs" ReadMode
+
+# if defined(__MINGW32__)
   hSetBinaryMode h True
+# endif
 
   hSetBuffering h NoBuffering
   loop h

diff --git a/ghc/tests/lib/IO/hSeek004.stdout b/ghc/tests/lib/IO/hSeek004.stdout
index 4826d5d..a133631 100644 (file)
--- a/ghc/tests/lib/IO/hSeek004.stdout
+++ b/ghc/tests/lib/IO/hSeek004.stdout
@@ -1,5 +1,5 @@
 Left illegal operation
 Action: hSeek
-Handle: {loc=hSeek004.out,type=writable (append),binary=True,buffering=block (8192)}
+Handle: {loc=hSeek004.out,type=writable (append),binary=False,buffering=block (8192)}
 Reason: handle is not seekable
 File: hSeek004.out