blob: 01b9aaed42ff956cfa3da35e6acc8fafcbaad575 (
plain)
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
|