diff options
| author | sewardj <unknown> | 2001-06-07 11:07:51 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-06-07 11:07:51 +0000 |
| commit | 06ffd264f1eea04f666b097812748fc42f2e17c7 (patch) | |
| tree | 43f1812694103de472eddbbb07d48ca5f46ab3a4 /ghc/tests | |
| parent | c95b86624e5048b972e8b2a975ee7d09366df3bb (diff) | |
| download | haskell-06ffd264f1eea04f666b097812748fc42f2e17c7.tar.gz | |
[project @ 2001-06-07 11:07:51 by sewardj]
Fix Unix world breakage.
Diffstat (limited to 'ghc/tests')
| -rw-r--r-- | ghc/tests/lib/IO/hGetLine001.stdout | 24 | ||||
| -rw-r--r-- | ghc/tests/lib/IO/hSeek004.stdout | 2 |
2 files changed, 25 insertions, 1 deletions
diff --git a/ghc/tests/lib/IO/hGetLine001.stdout b/ghc/tests/lib/IO/hGetLine001.stdout index 54b4bfc620..a7171cef4f 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 4826d5d663..a133631a01 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 |