Commit 06ffd264 authored by sewardj's avatar sewardj
Browse files

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

Fix Unix world breakage.
parent c95b8662
-- !!! 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
......
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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment