Flush stdout/stderr after running commands...?

Noticed here: #10573 (comment)
haskell · Dec 10, 2024 · 5e05c8d · 5e05c8d
1 parent 96bc9c3
commit 5e05c8d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/cabal-validate/src/ProcessUtil.hs b/cabal-validate/src/ProcessUtil.hs
@@ -15,6 +15,7 @@ import qualified Data.Text.Lazy as T (toStrict)
 import qualified Data.Text.Lazy.Encoding as T (decodeUtf8)
 import System.Directory (withCurrentDirectory)
 import System.Exit (ExitCode (ExitFailure, ExitSuccess))
+import System.IO (hFlush, stdout, stderr)
 import System.Process.Typed (ExitCodeException (..), proc, readProcess, runProcess)
 
 import ANSI (SGR (BrightBlue, BrightGreen, BrightRed, Reset), setSGR)
@@ -65,6 +66,8 @@ timed opts command args = do
     if verbosity opts > Quiet
       then do
         exitCode <- runProcess process
+        hFlush stdout
+        hFlush stderr
         pure (exitCode, ByteString.empty, ByteString.empty)
       else readProcess process