ghc/tests/lib/IO/hGetLine001.stdout

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