Modify progress percent to cover the previous progress.

UnkindPartition · Jul 8, 2023 · 743c9d9 · 743c9d9
1 parent 2cc9e0b
commit 743c9d9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/core/Test/Tasty/Ingredients/ConsoleReporter.hs b/core/Test/Tasty/Ingredients/ConsoleReporter.hs
@@ -153,9 +153,9 @@ buildTestOutput opts tree =
           | otherwise = do
               let
                 msg = case (cleanupProgressText $ progressText progress, 100 * progressPercent progress) of
-                        ("",  pct) -> printf "%.0f%%" pct
+                        ("",  pct) -> printf "%.0f%% " pct
                         (txt, 0.0) -> printf "%s" txt
-                        (txt, pct) -> printf "%s: %.0f%%" txt pct
+                        (txt, pct) -> printf "%s: %.0f%% " txt pct
               setCursorColumn resultPosition
               infoOk msg
               hFlush stdout