libraries/base/tests/IO/hSetBuffering004.hs


1
2
3
4
5
6
7
8
9
10

-- test for #2678
module Main (main) where

import System.IO

main :: IO ()
main = do hSetBuffering stdin NoBuffering
          hLookAhead stdin >>= print
          hSetBuffering stdin LineBuffering
          getContents >>= print