testsuite/tests/ghc-regress/lib/IO/hSetBuffering004.hs


1
2
3
4
5
6
7
8
9

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

import System.IO

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