Typo
[packages/base.git] / tests / IO / hGetLine001.stdout
1 -- !!! testing hGetLine\r
2 \r
3 import System.IO\r
4 \r
5 -- one version of 'cat'\r
6 main = do\r
7   let loop h = do b <- hIsEOF h\r
8                   if b then return ()\r
9                        else do l <- hGetLine h; putStrLn l; loop h\r
10   loop stdin \r
11 \r
12   h <- openFile "hGetLine001.hs" ReadMode\r
13 \r
14   hSetBinaryMode stdout True\r
15 \r
16   hSetBuffering h NoBuffering\r
17   loop h\r
18 \r
19   hSeek h AbsoluteSeek 0\r
20   hSetBuffering h LineBuffering\r
21   loop h\r
22 \r
23   hSeek h AbsoluteSeek 0\r
24   hSetBuffering h (BlockBuffering (Just 83))\r
25   loop h\r
26 -- !!! testing hGetLine\r
27 \r
28 import System.IO\r
29 \r
30 -- one version of 'cat'\r
31 main = do\r
32   let loop h = do b <- hIsEOF h\r
33                   if b then return ()\r
34                        else do l <- hGetLine h; putStrLn l; loop h\r
35   loop stdin \r
36 \r
37   h <- openFile "hGetLine001.hs" ReadMode\r
38 \r
39   hSetBinaryMode stdout True\r
40 \r
41   hSetBuffering h NoBuffering\r
42   loop h\r
43 \r
44   hSeek h AbsoluteSeek 0\r
45   hSetBuffering h LineBuffering\r
46   loop h\r
47 \r
48   hSeek h AbsoluteSeek 0\r
49   hSetBuffering h (BlockBuffering (Just 83))\r
50   loop h\r
51 -- !!! testing hGetLine\r
52 \r
53 import System.IO\r
54 \r
55 -- one version of 'cat'\r
56 main = do\r
57   let loop h = do b <- hIsEOF h\r
58                   if b then return ()\r
59                        else do l <- hGetLine h; putStrLn l; loop h\r
60   loop stdin \r
61 \r
62   h <- openFile "hGetLine001.hs" ReadMode\r
63 \r
64   hSetBinaryMode stdout True\r
65 \r
66   hSetBuffering h NoBuffering\r
67   loop h\r
68 \r
69   hSeek h AbsoluteSeek 0\r
70   hSetBuffering h LineBuffering\r
71   loop h\r
72 \r
73   hSeek h AbsoluteSeek 0\r
74   hSetBuffering h (BlockBuffering (Just 83))\r
75   loop h\r
76 -- !!! testing hGetLine\r
77 \r
78 import System.IO\r
79 \r
80 -- one version of 'cat'\r
81 main = do\r
82   let loop h = do b <- hIsEOF h\r
83                   if b then return ()\r
84                        else do l <- hGetLine h; putStrLn l; loop h\r
85   loop stdin \r
86 \r
87   h <- openFile "hGetLine001.hs" ReadMode\r
88 \r
89   hSetBinaryMode stdout True\r
90 \r
91   hSetBuffering h NoBuffering\r
92   loop h\r
93 \r
94   hSeek h AbsoluteSeek 0\r
95   hSetBuffering h LineBuffering\r
96   loop h\r
97 \r
98   hSeek h AbsoluteSeek 0\r
99   hSetBuffering h (BlockBuffering (Just 83))\r
100   loop h\r