Операторы печати не выполняются в режиме реального времени

У меня есть оболочка вокруг readCreateProcessWithExitCode, которая выполняет ранний выход всякий раз, когда возвращается ненулевой код выхода, и возвращает вывод stdout

import System.Process

runShell :: String -> String -> IO String
runShell cmd msg = do
  (ec, r, err) <- readCreateProcessWithExitCode (shell cmd) ""
  when (isFailure ec) (error $ msg <> ": " <> err)
  return r

На странице документации readCreateProcessWithExitCode кажется похожим на более простой readProcess, который утверждает, что блокируется до завершения разветвленного процесса.

Теперь проблема возникает всякий раз, когда я пытаюсь чередовать журналы stdout с помощью putStrLn.

fn :: IO ()
fn = do
  void $ runShell "lightweight" "err1"
  print "log1"
  void $ runShell "expensive" "err2"
  print "log2"

Предполагая, что обе команды выполнены успешно, а выполнение второй занимает несколько секунд, функция должна записать "log1" почти сразу после запуска lightweight, подождать несколько секунд, а затем вывести "log2". Однако это не так — кажется, что журналы «приостанавливаются» и печатаются только в конце выполнения программы, все сразу.

Я думал, что ленивая оценка как-то связана с этим, но явная оценка результатов putStrLn тоже не помогла.

() <- putStrLn "log1"