Wrong IO actions order using putStr and getLine

Question

I have the following code:

main = do
    putStr "Test input : "
    content <- getLine
    putStrLn content

When I run it (with runhaskell) or compile it (ghc 6.10.4) the result is like this:

asd
Test input : asd

Why is Test input : asd being printed after asd?

In the code sample on http://learnyouahaskell.com/, which uses putStr, the getLine's presented output is different than mine. When I use putStrLn the program works as expected (print, then prompt, and print).

Is it a bug in ghc, or it is the way that it should work?

score 57 · Accepted Answer · edited Apr 29 '18 at 16:37

57

This is because ghci disables buffering, while a program compiled with ghc has line buffering by default. You can see this by running this:

import System.IO
main = print =<< hGetBuffering stdout

In ghci you see NoBuffering while with runghc you get LineBuffering. Since the newline character doesn't print until after the user input, the prompt doesn't either.

Fix it by adding hFlush stdout after your prompt (or disable buffering with hSetBuffering stdout NoBuffering, but that’s probably bad).

edited Apr 29 '18 at 16:37

pensono

336
6
17

answered Mar 23 '10 at 14:09

Josh Lee

171,072
38
269
275

3

you might need `import System.IO` instead of `import IO` – Kamil Szot Nov 26 '15 at 12:54
@KamilSzot: I am experiencing the same symptoms while using System.IO – René Jahn Nov 05 '19 at 14:13
Is there a reason to leave it buffered? – TankorSmash Feb 02 '23 at 00:08

Wrong IO actions order using putStr and getLine

1 Answers1

Linked

Related