Accumulate test times even if one fails

2026-01-11 23:54:46 +00:00 · 2026-01-11 23:54:46 +00:00 · 1a06ea1b51
commit 1a06ea1b51
parent 05e8eeffee
1 changed files with 1 additions and 1 deletions
--- 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