(>>=) 的执行顺序不是我所期望的

Question

我收到了一系列网络请求，每个请求都需要 10 秒以上。
为了让用户知道发生了什么，我提供了更新：

main = do putStr "Downloading the first thing... "
          {- Net request -}
          putStrLn "DONE"
          putStr "Downloading the second thing... "
          {- Net request -}
          putStrLn "DONE"

使用 GHCi 可以按预期工作，但是编译或使用 runghc 时，“Downloading”在“DONE”之前不会打印。

我用 (>>=) 和 (>>) 重写了它，但我遇到了同样的问题。

发生了什么事？

Answer 1

这里的问题不在于执行顺序。语句完全按照您期望的顺序执行。问题是由于缓冲，您实际上并没有在结果发生时立即看到结果。

默认情况下，终端 IO 是行缓冲的。这意味着在您打印换行符或刷新缓冲区之前，屏幕上不会出现任何输出。因此，您需要在执行putStr 后使用hFlush 刷新'输出流，或者您需要使用hSetBuffering 更改stdout 的缓冲模式以不使用行缓冲。