From 11472519f533fb9fb5831246148b78bdfd696b8d Mon Sep 17 00:00:00 2001
From: Marcin Szamotulski <coot@coot.me>
Date: Sun, 22 Oct 2023 23:17:15 +0200
Subject: [PATCH] Fixed issue #395

---
 core/Test/Tasty/Ingredients/ConsoleReporter.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/core/Test/Tasty/Ingredients/ConsoleReporter.hs b/core/Test/Tasty/Ingredients/ConsoleReporter.hs
index e2fafff3..09af2002 100644
--- 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
       )