From 06ffd264f1eea04f666b097812748fc42f2e17c7 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Thu, 7 Jun 2001 11:07:51 +0000
Subject: [PATCH] [project @ 2001-06-07 11:07:51 by sewardj] Fix Unix world
 breakage.

---
 ghc/tests/lib/IO/hGetLine001.stdout |   24 ++++++++++++++++++++++++
 ghc/tests/lib/IO/hSeek004.stdout    |    2 +-
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/ghc/tests/lib/IO/hGetLine001.stdout b/ghc/tests/lib/IO/hGetLine001.stdout
index 54b4bfc..a7171ce 100644
--- 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
--- 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
-- 
1.7.10.4