From b20a3cf72522a88d73ab1d6f03c13e5705c7ab8e Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 18 Jun 2025 11:24:30 +0200
Subject: test-framework: Correct line count when collapsing with nested
 subgroups

---
 test-framework/Test/Framework.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test-framework/Test/Framework.hs b/test-framework/Test/Framework.hs
index e0dc4b3..1b2b7d7 100644
--- a/test-framework/Test/Framework.hs
+++ b/test-framework/Test/Framework.hs
@@ -190,7 +190,7 @@ runTests options = \tree' ->
                               "\x1B[32mOK\x1B[0m" ++
                               prettyDuration False (realToFrac (diffUTCTime endtm starttm))
           return (Just 1)
-        _ -> return mlns
+        _ -> return ((+1) <$> mlns)
     go indent path (Resource make cleanup fun) = do
       value <- liftIO make
       success <- go indent path (fun value)
-- 
cgit v1.2.3-70-g09d2