From 1a06ea1b51a3cee39282bb9e4510e06da3f81c4e Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Sun, 11 Jan 2026 23:54:46 +0000
Subject: [PATCH] Accumulate test times even if one fails

---
 haskell/Pre.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/haskell/Pre.hs b/haskell/Pre.hs
index cc420eb..7a7ac62 100644
--- a/haskell/Pre.hs
+++ b/haskell/Pre.hs
@@ -435,7 +435,7 @@ runTests opts r0 (TestTree name tc ts) =
                     pure $ Left $ ExceptionFailure e
                 Right (Right (r, dt)) -> do
                     rs <- for ts $ runTests opts r
-                    let childTimes = either (const 0) id $ fmap (sum . map fst) $ traverse (.result) rs
+                    let childTimes = sum $ map (either (const 0) fst . (.result)) rs
                     pure $ Right (dt + childTimes, rs)
   where
     runTest = \case