diff --git a/tests/IO/hSetBuffering004.hs b/tests/IO/hSetBuffering004.hs index eaee6826..01b9aaed 100644 --- a/tests/IO/hSetBuffering004.hs +++ b/tests/IO/hSetBuffering004.hs @@ -7,3 +7,4 @@ main :: IO () main = do hSetBuffering stdin NoBuffering hLookAhead stdin >>= print hSetBuffering stdin LineBuffering + getContents >>= print diff --git a/tests/IO/hSetBuffering004.stdout b/tests/IO/hSetBuffering004.stdout index 7766eec9..a7c39464 100644 --- a/tests/IO/hSetBuffering004.stdout +++ b/tests/IO/hSetBuffering004.stdout @@ -1 +1,2 @@ '-' +"-- test for #2678\nmodule Main (main) where\n\nimport System.IO\n\nmain :: IO ()\nmain = do hSetBuffering stdin NoBuffering\n hLookAhead stdin >>= print\n hSetBuffering stdin LineBuffering\n getContents >>= print\n"