ConsoleReporter: force flushing of stdout after showCursor

UnkindPartition · Nov 27, 2024 · 7d61d98 · 7d61d98
1 parent d7efcd4
commit 7d61d98
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/core/Test/Tasty/Ingredients/ConsoleReporter.hs b/core/Test/Tasty/Ingredients/ConsoleReporter.hs
@@ -563,7 +563,9 @@ consoleTestReporterWithHook hook = TestReporter consoleTestReporterOptions $
       isTermColor <- hSupportsANSIColor stdout
 
       (\k -> if isTerm
-        then (do hideCursor; k) `finally` showCursor
+        -- When killing with Ctrl+C 'showCursor' can fail
+        -- to restore terminal cursor if not flushed explicitly
+        then (do hideCursor; k) `finally` (do showCursor; hFlush stdout)
         else k) $ do
 
           hSetBuffering stdout LineBuffering