Fixed issue #395

UnkindPartition · Nov 3, 2023 · 1147251 · 1147251
1 parent 410a9a4
commit 1147251
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/core/Test/Tasty/Ingredients/ConsoleReporter.hs b/core/Test/Tasty/Ingredients/ConsoleReporter.hs
@@ -295,8 +295,9 @@ consoleOutput toutput smap =
       , Any True)
     foldHeading _name printHeading (printBody, Any nonempty) =
       ( Traversal $ do
-          when nonempty $ printHeading
-          getTraversal printBody
+          when nonempty $ do
+            printHeading :: IO ()
+            getTraversal printBody
       , Any nonempty
       )